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AVDS3 USER'S MANUAL 


The Articulated Vehicle Dynamic Simulation Model (AVDS3) 
mathematically simulates the dynamic response of tractor single- 
double- and triple-semitrailer vehicles using a digital computer. 
The computer code is experimentally verified, modularly construc- 
ted and centrally controlled. The dynamic characteristics of the 
vehicle system subject to road,vehicle and environmental factors 
can be evaluated with the AVDS3 model which computes the steering 
and braking demands for the specified vehicle while negotiating 
a prescribed trajectory. AVDS3 performs a time dependent simu- 
lation of the vehicle's motions along with checks on physical 
stability and mathematical stability (tractor semitrailer only). 


A list of systems parameters that can be varied in the program 


follows. 
Vehicle Environment 
e Trailer configuration (single, e Road surface condition 
double and triple). (dry, wet, ice) 
e Tractor geometry @ Maneuvers (corner, 


evasive, lane change) 


@® Tractor mass distribution 
e Road geometry (banks 


e Trailer geometry and grades) 


@e Trailer mass distribution 
e Transient and steady 


e Brake force distribution state aerodynamics 


e Tire characteristics 


e Fifth wheel damping 


Flow diagram for the complete computer program are con- 
tained in Figures 1 through 11 and a synopsis of the function of 


each follows. 


MAIN (Figure 
VELACC (Figure 


CIRCLE (Figure 


MOTEQS (Figure 


INVER - 
LOTRAN (Figure 


TIRES (Figure 


TAYINT (Figure 


STRSLP (Figure 


wl 


i) ye 
2) 


Shs 


Lis 


5) 


6): 


TAME 


Ss 


Directs and controls computation. 
Computes tractor c.g. velocity and 
acceleration values for lane change 
and evasive maneuvers using a poly- 
nomial function. | 
Computes tractor c.g. velocity and 
acceleration values for cornering 
maneuver using a mathematical func- 
tion. conmcirele: 

Formation and solution of simul- 
taneous equations. 

Standard linear equation solver, 
Computes aerodynamic forces and 
moments, hill and bank effects, load 
transfer due to pitch andgrom and 
wheel lifting effects. 

Computes tire forces, tire wear 
effects, multiple wheels and tandem 
axles effects, and checks, frietion 
ellipse concept. 

Performs Taylor integration of yaw 
angular accelerations. 

Computes steering and tire slip 
angles and prints output, also sets 
variables for mathematical stability 


check, 


“Kuo, S. S., Numerical Methods and Computers, Addison Wesley 
Publishing Co, ap Reading, Mass. 5 1965. 


BRAKE (Figure 9): Distribution of brake forces. 

LPCK1 (Figure 10): Controls stability check, com- 
putes Jacobian matrix A for auto- 
nomous case (i.e. cornering man- 
euver) and checks for stability. 

ROUTH (Figure 11): Computes characteristic equation 


and checks Routh criteria. 


* ; see 
INVERS $ Standard program, computes in 
verse of a matrix. 
7 
DETERM : Standard program, computes deter- 


minent of a matrix. 


The complete computer program is shown in Figure 12 on 
pages 62 through 114. Figure 13 shows the arrangement of the 
data cards for an AVDS3 simulation. Specific information on 
entering data on these cards is given in pages 4 through 25. 
The computer input/output data for a simulation of a tractor 
triple-semitrailer making a cornering maneuver is shown in Figure 14. 


The code names for output values are listed on page 116: 


“Rosenthal, M. R., Numerical Methods in Computer Programming, 
Richard D. Irwin, Inc., Homewood, I11l., 1966. 
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Switch 
Switch 
Switch 
Switch 
Switch 
Switch 
Switch 
Swtich 
Switch 
Switch 
Switch 
Switch 
Switch 
Switch 
Switch 
Switch 


CONTROL SWITCHES CARD 


NOMENCLATURE 


FIELD 


1-5 
6-10 
11-15 
16-20 
2U=25 
26-30 
31-35 
36-40 
41-45 
46-50 
51-55 
56-69 
61-65 
66-70 
ey pe) 
76-80 


FORMAT 


IES) 
1b) 
US) 
iD) 
It) 
1C5) 
ICS) 
ACS) 
I5 
1S 
WD 
iL) 
13) 
15 
JE) 
1f5) 


Code 


ISW22 
ISwW23 
ITSW25 
ISW26 
ISW27 
ISW28 
ISW29 
ISW30 
ISW31 
IPOINT 


CONTROL SWITCHES CARD #2 


Nomenclature 


Switch 
Switch 
Switch 
Switch 
Switch 
Switch 
Switch 
Switch 
Switch 


22 
23 
25 
26 
27 
28 
29 
30 
OL 


1-5 

6-10 
11-15 
16-20 
21-25 
26-30 
31-35 
36-40 
41-45 
46-50 


Format 


I5 
ye) 
15 
dt 
I5 
[5 
I5 
I5 
I5 
I5 


(Not in use) 


(Not in use) 


CONTROL CARDS SWITCH DESCRIPTIONS 


[ = 0 Single or double tractor-semitrailer vehicle 
ISw3 | 
= 1 Triple tractor-semitrailer vehicle 
Cog eo Single tractor-semitrailer vehicle 
LSW4 
= 1 Double (or triple) tractor-semitrailer vehicle 
2 
= 0 Call CIRCLE- cornering maneuver 
ISW5 
=] Skip CIRCLE- either Call VELACC or vehicle 
velocity-acceleration data from 
previous simulation retained 
= 0 No vehicle data- data from previous simulation 
ISW6 | retained 
= 1 Read vehicle data 
= 0 No aerodynamic data 
ISW7 | 
= 1 Read aerodynamic data 
= 0 No tire and fifth wheel data 
ISW8 | 
= 1 Read tire and fifth wheel data 
| = 0 No brake data 
ISW9 | 
= 1 Read brake data 
= 0 Continued simulation data sets 
ISW1O 


{exer ores | 
ll 
— 


End data 


E Data from previous simulation can be retained when parameter 
studies are conducted using multiple computer runs. 


2 Subroutine description given on Pages 2 and 3, 
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[ = 0 Call VELACC 


ISW14 ; 

L = 1 Skip VELACC either Call CIRCLE or vehicle 
velocity-acceleration data from 
previous simulation retained 

=) Redistribution of tire side and brake/tractive 
| forces as per the friction ellipse concept. Only 
ISW15 available forces are allowed. 
oe 1 No redistribution of forces, only friction 
ellipse is checked and a warning printed when 
it is exceeded. 
fF = 0 LITRI modified Ellis formula (Ref. 23, Technical 
i 
ISW16 | = 1 IITRI tire side force formilae hos? 
= 2 Ellis formula (Ref. 23, Technical Report) 
= 0 One wheel i 
ISW17 = 1 Two wheels ) j\Treactoxi‘rear - both sides 
tL =2 Four wheels \ 
= 0 One wheel } 
ISW18 = ] Two wheels First semitrailer - both sides 
L =2 Four wheels 
[ = 0 1 wheel 
ISW19 esl! 2 wheels First dolly - both sides 
L = 2 4 wheels 
Fs 0 1 wheel 
ISW20 oes 2 wheels Second semitrailer - both sides 

L = 2 4 wheels 

= 0 No test for constant parameter values for 

circular maneuver 

ISW21 | 
Lt =l Test for constant parameter values for 
circular maneuver (when constant parameter values 
are attained, print output and terminate 
simulation run and/or check mathematical 
stability. 
2 


This tire model is based on experimental tire data from Goodyear 
Tire and Rubber Company. See p. 178 of the technical report 
for a discussion of the model. 


ISW22 


ISW23 


ISW25 


ISW26 


ISW27 


ISW28 


Isw29 


ISW30 


ISW31 


Not 


ll 


in use 


Refined slip angles (slip angles for wheels 
on a given axle are not equal) 


Approximate slip angles (single tractor- 
semitrailer only, slip angles for wheels on a 
given axle are assumed equal) 

Print after constant parameter values are 
attained in a cornering maneuver 


Print at each time step 
Print at 0.2 sec interval 


1 wheel 
2 wheels Second dolly - both sides 
4 wheels 


1 wheel 
2 wheels Third semitrailer - both sides 
4 wheels 


Skip LPCK1 


Call LPCK1 (mathematical stability check) 
No go 


Go in iteration cycle at the same time 
step for equilibrium values 


Braking force distribution as specified b 
the Brake Force Distribution card - Page (21) 


Braking force distribution in proportion to 
vertical loads 


Not in use 


Maximum number of time steps after which the 


1POINT 
L computer simulation run is aborted 


Code 


CWT 
CWST1 


CWD1 
CWST2 


CWD2 
CWST3 


Code 


CIZZ1 
CIZZ2 
CLZZ3 
CI1ZZ4 
CIZZ5 


CIZZ6 


VEHICLE DATA CARD #1 


Nomenclature 


Weight of the tractor 
Weight of the first semi- 


trailer 


Weight of the first dolly 
Weight of the second semi- 


trailer 


Weight of the second dolly 
Weight of the third semi- 


trailer 


VEHICLE DATA CARD #2 
Nomenclature 


Moment of inertia of tractor 
axis * 


about Z1 a 


Moment of inertia 
semitrailer about 


Moment of inertia 
dolly about 2. Z. 


Moment of inertia 
semitrailer about 


Moment of inertia 
dolly about Z5 Z. 


Moment of inertia 
semitrailer about 


Of ELSE 


Zo Z5 axis 


Of, ET ESE 
axis 


of second 


Zi), Z), axis 


of second 
axis 


of third 


Z6 Z6 axis 


* Figure A-1, Technical Report 
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PoTor 


11-20 


21-30 


31-40 


41-50 


51-60 


F10.0 
F10.0 


Format 


F10.0 
F10.0 
F10.0 
F10.0 
F10.0 


F10.0 


Unit 


1b 
lb 


1b 
lb 


lb 
lb 


Unit 

lb-f£t-sec 
lb-ft-sec 
lb-ft-sec 
lb-ft-sec 
lb-ft-sec 


lb-ft-sec 


VEHICLE DATA CARD #3 


Code Nomenclature Field Format Unit 
CBL 1-10 F10.0 ft 
CB2 11-20 F10.0 ft 
CB3 : ; 21-30 F10.0 1 
CBA Nie a 31-40 F10.0 ft 
CB5 Eteures! To). to 20 41250 F100 ‘fe 
CB6 51-60 F10.0 ft 
CB7/ 61-70 F10.0 ft 
CB8 71-80 F10.0 EG 
VEHICLE DATA CARD #4 
Code Nomenclature Field Format Unit 
CBI 1-10 F10.0 ft 
CB10 11-20 F10.0 ft 
CB1l 21-30 F10.0 ft 
CB12 Vehicle dimensions 31-40 F10.0 EE 
CB13 Figures [6 to 20 41-50 F10.0 Et 
CB14 51-60 F10.0 ft 
CB15 61-70 F10.0 ft 
CB16 71-80 F10.0 ft 
VEHICLE DATA CARD #5 
Code Nomenclature Field Format Unit 
CB17 | Vehicle dimensions Leto: nose ft 


Figures 15 to 26 


“These figures appear on pages 130-135, where the prefix C does not 
appear on the vehicle dimensions. 


LL 


VEHICLE DATA CARD #6 


Code Nomenclature Field Format Unit 
CH1 1-10 F10.0 ft 
CH2 | - 11-20) SE10L0 ft 
CH3 Vehicle dimensions 21-30 i Romo ft 
cH4 = \ Figures 15 to 20 31-40  EiloRO ft 
CHS «| 4i-50 F100) ESE 
CH6 51-60 F10.0 ft 
CH7 61-70 F10.0 ft 
CH8 71-80  F10.0 ft 
VEHICLE DATA CARD #7 
Code Nomenclature Field Format Unit 
CH9 1-10  F1070 ft 
CHLO Vehicle dimensions 11-20 F10.0 ft 
CH11 eee a 6 21-30 ¥F10.0 ft 
CH12 31-40 F10.0 ft 
CH13 41-50 ¥F10.0 ft 
CH14 51-60 F10.0 ft 
CH15 61-70 F10.0 ft 
CH16 71-80 F10.0 ft 
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VEHICLE DATA CARD #8 


Code Nomenclature Field Format Unit 
CH17 LO AE LO 20 ft 
CH18 11-20 F10.0 Et 
CH19 21-30 F10.0 ft 
CH20 Vehicle dimensions 31-40 F10.0 fe 
CH21 Ee uees i> t0 20 41-50 F10.0  £t 
CH22 51-60 F10.0 ft 
CH23 61-70 = F10.0 ft 
CH24 71-80 F10.0 ft 


VEHICLE DATA CARD #9 


Code Nomenclature Field Format Unit 
CH25 Vehicle dimensions 1-10 F10.0 ft 
CH26 Figures 15 to 20 11-20 #£F10.0 Bt 


VEHICLE DATA CARD #10 


Code Nomenclature Field Format Unit 
CD1 1-10 F10.0 Et 
CD2 11-20 # F10.0 £t 
CD3 21-30 F10.0 Et 
CDA Vehicle dimensions 31-40 F10.0 ft 
cD5 See a uae 44 41-50 F10.0 ft 
CD6 51-60 #£F10.0 ft 
CD7 61-70 £F10.0 Et 
CD8 71-80 F10.0 £t 


£3 


Code 
CD9 

cD10 
CD11 
cD12 


CD13 
CD14 


Code 


SPRGC1 


SPRGC2 


SPRGC3 


SPRGC4 


SPRGC5 


SPRGC6 


SPRGC7 


Code 


NSTART 
NEND 


VEHICLE DATA CARD #11 
Nomenclature Field 


1-10 
11-20 
21=30 
31-40 
41-50 
51-60 


Vehicle dimensions 
Figures 15 to 20 


VEHICLE DATA CARD #12 
Nomenclature Ruel 


Tractor front equivalent (tire 1-10 
plus suspension) spring constant 
Tractor rear equivalent 11-20 
spring constant 

First semitrailer equiva- 21-30 
lent spring constant 

First dolly equivalent 31-40 
spring constant 

Second semitrailer equivalent 41-50 
spring constant 

Second dolly equivalent spring 51-00 
constant 

Third semitrailer equivalent 61-70 


spring constant 


WIND START/END POINT CARD 


Nomenclature Field 
Wind start - time step 1-10 
Wind end - time step 11-20 
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Format Unit 


F10.0 Ee 
F10.0 ft 
F10.0 iat 
F10.0 iEiE 
F10.0 fete 
F10.0 fae 


Format Unit 

F10.0 ILloy fee 
F10.0 lb/ft 
F10.0 se 
FLOR0 lb/ft 
9A HO) 5(0) lb/ft 
F10.0 Dy ete 


F10.0 by/ fete 


Format Unit 


110 - 
1E1K0) - 


Je 


WIND VELOCITY IN X, DIRECTION CARDS 
Code Nomenclature Field Format Unit 
: ; : ak : 
VAX(L) Wind velocity in X; direction 1-10 F10.0 fps 


to 
11-380 


J. 


WIND VELOCITY IN Y, DIRECTION CARDS» 
Code Nomenclature Field Format Unit 


VAY(1) Wind velocity in Y; direction 1-10 F10.0 fps 


to 
11-80 
AERODYNAMIC DATA CARD #1 
Code Nomenclature Field Format Unit 
AREA(1)‘\" 1-10 Fl0.0 £t* 
2 

AREA(2) Cross-sectional area of 11-20 F10.0 < 
AREA(3) \ cach of the sprung: masses L230.) F 10.0 ae 
AREA(4) on which the aerodynamic 31-40 = FLO. en 
AREA (5) coefficients are based 41-50 FLO.0 me 
AREA(6) 51260) Fid.0. £€ 


ale 


“ Each card contains wind velocity values of eight time steps. 
Number of cards depend on number of input wind velocity values. 


** Numbering system: Tractor (1), First Semitrailer (2), First 
Dolly (3), Second Semitrailer (4), Second Dolly (5), and 
Third Semitrailer (6). Generally the aerodynamic coefficients 
are based upon the front cross-sectional area of each of the 
sprang masses. 


KKK 
Figure A-1, Technical Report 


IES) 


AERODYNAMIC DATA CARD #2 


vode Nomenclature ‘wut SUE 

CLENTH(1) 1-10 F10.0 fete 

CLENTH( 2) Length of each of 11-20 F10.0 £E 

CLENTH(3) the sprung mass2s on 21-30 BLORO EE 

CLENTH(4) which the aerodynamic 31550) ee a 

CLENTH(5) coefficients are based. mney ee EG 

CLENTH(6) 51-60 F10.0 £E 
AERODYNAMIC DATA CARD #3 | 

Code Nomenclature Field Format Unit | 

CDRAG(1) 1-10 FI0.08 ume | 

CDRAG( 2) 11-20 F10.0 - 

CDRAG(3) ag shes aay drag force 21-30 F10.0 7 

CDRAG(4) coefficients for the 31-40 F10.0 b 

CDRAG(5) Seas Oo oN 41250 FLOnO : 

CDRAG(6) 51-60 F10.0 - 
AERODYNAMIC DATA CARD #4 

Code Nomenelature Field Format Unit 

CSIDE(1) 1-10 F10.0 - 

CSIDE(2) 11-20 F10.0 - 

CSIDE() Aerodynamic side force 21-30 F10.0 - 

CSIDE(4) coefficients for the 31-40 F10.0 ~ 

CSIDE(5) sprung masses. 41-50 #£F10.0 - 

CSIDE(6) 51-60 F10.0 - 


a 
“~ 


Generally the aerodynamic coefficients are based upon the 


wheelbase for tractor, the distance between fifth wheel and 
rear axle for semitrailers, and the distance between pin 
joint and rear axle for dollies. 
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AERODYNAMIC DATA CARD #5 


Code Nomenclature Field Format Unit 
CLIFT(1) 1-10 #£¥F10.0 - 
CLIFT (2) 11-20 F10.0 = 
CLIFT(3) Aerodynamic lift force Z¥=30 F100 - 
CLIFT (4) coefficients for the 31-40 #£F10.0 - 
CLIFT(5) sprung masses. 41-50 F10.0 by 
CLIFT (6) 51-60 F10.0 - 


AERODYNAMIC DATA CARD #6 


Code Nomenclature Field Format Unit 
CROLL(1) — 1-10 < F10.0 - 
CROLL (2) 11-20 F10.0 = 
CROLL (3) Aerodynamic rolling 21-30 ¥F10.0 : 
CROLL(4) moment coefficients for 31-40 ¥F10.0 7 
CROLL(5) Ee ne masees!: Hi50 Fi0.0 1-22 
CROLL (6) D2- 60 PLO. = 


AERODYNAMIC DATA CARD #7 


Code Nomenclature Field Format Unit 
CPICH(1) 1-10 # F10.0 - 
CPICH( 2) 11-20 F10.0 - 
CPICH(3) Aerodynamic pitching 21-30 F10.0 7 
CPICH(4) - moment coefficients for 31-40 F10.0 _ 
CPICH(5) Chege pring masses. O50 10.0. 
CPICH(6) 51-60 F10.0 - 


G7 


AERODYNAMIC DATA CARD #8 


Code Nomenclature Field Format Unit 
CYAW(1) | ; 1-10 F10.10 }) ae 
CYAW(2) 11-20 F10.0 = 
CYAW(3) Aerodynamic yawing mo- 21-30 F10.0 f 
CYAW(4) { ment coefficients for 31-40 F10.0 , 
CYAW(5) the sprung masses. Al-50  ¥F10.0 r 
CYAW(6) 51-60 F10.0 = 


AERODYNAMIC DATA CARD #9 


Code Nomenclature Field Format (laws 
pRAGC(1) \” 1-10 F10.0 = 
DRAGC(2) | 11-20 F10.0 - 
DRAGG(3) Constants used in 21-30 F10.0 ? 
DRAGC(4) aerodynamic drag force 31-40 F10.0 ip 
DRAGC(5) equations for the 41-50 F10.0 i 
DRAGC (6) ede 51-60 F10.0. - 


e Ret 23 = Technical) Report 
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Code 


DELTAM 
CKW1L 


CW1 


CFW1L 
CKW2 


CW2 


CFW2 
CKW3 


Code 
CW3 


CFW3 


FRELIS 


ALPHM 


TIRE, FIFTH WHEEL DATA CARD #1 


ee 


Nomenclature Field Format 


Maximum steering angle 1-10 F10.0 


Spring constant(CKW1), vis-11-20 F10.0 
cous(CW1) and coulomb(CFW1) damping 


Coefficients at fifth 21-30 F10.0 
wheel between tractor and 
first semitrailer 31-40 F10.0 


Spring constant, viscous 41-50 F10.0 
and coulomb damping 

Coefficients at fifth 

wheel between first dolly 51-60 #F10.0 
and second semitrailer 61-70 F10.0 
Spring constant at fifth 71-80 F10.0 
wheel between second 

dolly and third semi- 

trailer. 


TIRE, FIFTH WHEEL DATA CARD #2 


a 


Nomenclature Field Format 
Viscous and coulomb 1-10 F10.0 


damping coefficients at 

fifth wheel between second 11-20 #£F10.0 
dolly and third semi- 

trailer. 

Friction coefficient in 21-30 F10.0 
Ellis formula 

Maximum slip angle in 31-40 F10.0 
Ellis formula. 
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Unit 


rad 
1lb-ft/rad 


lb-ft/rad/sec 
lb-ft 


lb-ft/rad 


1lb-ft/rad/sec 
lb-ft 
lb-ft/rad 


Unit 
lb-ft/rad/sec 


lb-ft 


rad 


TIRE, FIFTH WHEEL DATA CARD #3 


Code Nomenclature Field Format “Unute 
CMLTFR(1) | - 1-10. Bion 

CMLTFR (2) 11-208: cn 1050 see 
CMLTFR(3) 21-30 F1O.0 | = 
CMLTFR (4) Lo ge Qe 31-40 1050) same 
CMLTFR(5) Oe eral 41-50 .FIO;0 
CMLTER (6) Aa) = 
CMLTFR(7) 61-70 , FLOsO meee 
CMLTFR(8) 71-80: F10.0 J = 

TIRE, FIFTH WHEEL DATA CARD #4 


Code Nomenclature Field, Format sneer 
CMLTFR(9) 1-10 ELORO - 
CMLTFR(10) It=20' ELORO = 
CMLTFR(11) TMipenweare 21-30 {HEORO = 
CMLTFR(12) SOR ELIOT ORES: 31-40 = FLOZO = 
CMLTFR(13) 41-50), HLOno = 
CMLTFR(14) IL=60 FLO RO = 


a 


* Basic tire road friction coefficient modified to include 
effect of tire wear through multiplication by these coefficients. 


Ll 
Pay 


“Numbering system for CMLTFR (I) and BK (I): 


li fractor, front, fete wheel 2 Tractor, front right wheel 

3 Tractor, t.ear lebe wheel 4 Tractor, rear right wheel 

5 First semitrailer, left wheel 6 First semitrailer, milehtewheel 
7 Eiescerdolly.. left wheel 8 First dolly, right wheel 

9 Second semitrailer,left wheel 10 Second semitrailer, right wheel 
11 Second dolly, left wheel 12 Second dolly, right wheel 

13 Third semitrailer, left wheel 14 Third semitrailer, right wheel 


BRAKE FORCE DISTRIBUTION CARD 


Format Unit 


oS © © 0o:-oO Oo o.oo © 2 2 © © © 


sec 


Format Unit 


Code Nomenclature Field 
TBRAKE Time at which braking 1-5 F5 
is applied 
BKGL) 6210 °F5 
BK(2) 11-15 F5 
BK(3) 16-20 F5 
BK(4) 21-25 #£#F5 
BK(5) 26-30 #F5 
BK(6) 31-35 F5 
BK(7) 36-40 8 F5 
BK(8) Brake force distribu- 41-45 F5 
BK(9) tion constants. ey, F5 
BK(10) 51-55 F5 
BK(11) 56-60 F5 
BK(12) 61-65 F5 
BK(13) 66-70 F5 
BK(14) 71-75 =6FS5 
SUBROUTINE VELACC DATA CARD #1 
Code Nomenclature Field 
WIDTHL” Maneuver width 1 1-10,.. F10. 
WIDTH2 Maneuver width 2 11-20 F10. 
CLONG1 Maneuver length 1 Z21=30 FLO. 
CLONG2 Maneuver length 2 S140 « wELO. 
XVEL(1) Maneuver starting velocity 41-50 FIO. 
TINT Time increment 51-60 F120. 
D Specified constant SHO LS 10g LPO, 
acceleration: (see sketch on page 22) 
TMAX Maximum time for maneuver 71-80 FILO. 


Figure A-10, Technical Report 


KK 


Or: On © OO 7S 


Numbering system same as for the tire fifth wheel data cards 


#3 and #4. 
ZA 


Code 
TBRST 


TBRL 


TBR2 


TBREN 


Code 


ISW11 
NOACCY 


ISW12 


aL 


~ The tractor ci. 


SUBROUTINE VELACC DATA CARD #2 


Nomenclature Field 
Time at which braking/ 1-10 
acceleration starts 

Time at which constant 11-20 


braking/acceleration 


starts 


Time at which constant 21-30 


braking/acceleration ends 


Time at which braking/ 31-40 


acceleration ends 


SUBROUTINE VELACC DATA CARD #3 


Nomenclature Biel 
Switch 11 (page 23) 1-5 
Number of input tractor 6-10 


c.g. acceleration values 


Switch 12 11-15 


specified as shown in the sketch below. 
constant acceleration: 


(ft/sec?) 


TBRST  TBRI 


Time (Sec) 


22 


Format What 


F10.0 sec 


F10.0 sec 


F10.0 sec 


F10.0 sec 


Format Unit 


IGS) 
15 


IES) 


acceleration on the maneuver path is 
D is the specified 


SUBROUTINE VELACC SWITCH DESCRIPTIONS 


= 0 No acceleration input values 
= 1 Read lateral acceleration and tractor yaw 
ISW11 input values 
= 2 Read lateral and forward accelerations and 
tractor yaw input values 


= 0 Motion on horizontal plane 


" 
| 


ISW12 Motion uphill 


= 5 Motion downhill 


* 
SUBROUTINE VELACC ACCELERATION INPUT DATA CARD #1 


Code Nomenclature Field Format Unit 

SCALEY Scale for tractor later- 1-10 F10.0 ft /sec*/in. 
al acceleration 

SCALEX Scale for tractor forward 11-20 F10.0 ft /sec*/in. 
acceleration : 

SCALEP Scale for tractor yaw 21-30 F10.0 rad/in. 
angle 


Na 


SUBROUTINE VELACC LATERAL ACCELERATION INPUT DATA CARDS» 


Code Nomenclature Field Format Unit 
YDDT (1) Tractor lateral 1-10 F10.0 in. 
- to 
acceleration values 11-80 


The tractor lateral and forward acceleration values and the 
tractor yaw angle values are measured in inches from the 
experimental records and are converted in ft/sec* through 
multiplication by the scales. 


Z3 


SUBROUTINE VELACC FORWARD ACCELERATION INPUT DATA CARDS 


Code 


XDDT(1) 


Nomenclature 


Tractor lateral acceler- 


ation values 


Format 


F10. 


SUBROUTINE VELACC TRACTOR YAW INPUT DATA CARDS 


Code 


PHI (1) 


SUBROUTINE VELACC ROAD GEOMETRY DATA 


Code 


THETA — 
PSIR 


SUBROUTINE CIRCLE DATA CARD #1 


Code 


CLONG 
RAD 
THETAR 
VSTART 
FACC 


TINT 
TMAX 
SWITCH 


al 


Ref 23, Technical Report 


Nomenclature 


Tractor yaw angle values 


Nomenclature 


Hill angle 
Angle through which the 


road is banked 


Nomenclature 


Length of maneuver 

Radius of circular arc 
Angle of circular arc 
Maneuver starting velocity 


Acceleration entering 


the circular arc 


Time increment 


Maximum time for maneuver 


24 


Field 


1-10 
to 
11-80 


LNPUT 


To, 
11-20 


Field 


1-10 
11-20 
21-30 
31-40 
41-50 


51-60 
61-70 
71-80 


Format 


F10.0 


CARD 


Format 


EEOR 
FLOR 


0) 


0 
0 


Unit 


Unit 


in. 


in. 


Unit 


rad 
rad 


Format Unit 


FLO: 
ELOR 
F10. 
F10. 
F10. 


F10. 
ERO 


Sey ce ee) 


o>) 


F10.0 


ft 

ft 

rad 
ft/sec 


ft/sec“ 


SUBROUTINE CIRCLE SWITCH DESCRIPTION 


=i 10) Continue velocity/acceleration calculation 
atter Jd’eaving-the circular are. 


SWITCH 
= 1 Stop velocity/acceleration calculations at 
the .endof. cireuLar arc 
SUBROUTINE CIRCLE DATA CARD #2 
Code Nomenclature Field Format Unit 
STEP1L | Number of time steps through 1-10 F10.0 - 
which the acceleration value in- 
creases linearly (STEP1), remain 
SIE? constant (STEP2), and decreases 11-20 F10.0 ~ 
linearly (STEP3) on entering the 
SLEEPS eircciwlar arc, 21-30 BLOUO - 
STEP4 } Number of time steps through 31-40 ££F10.0 - 
which the acceleration value in- 
creases linearly (STEP4), remains 
STEP) / constant (STEP5), and decreases 41-350 F10.0 . 
linearly (STEP6) on leaving the 
STEP6 Circular arc. 51-60 F10.0 - 
FFACC Acceleration leaving 61-70" FLO.O £t/sec* 


the circular arc. 


al. 
n 


The tractor c.g. acceleration on the maneuver path (at the 
entrance and exit from the circular are is specified as shown 
in the sketch below. FACC is the specified constant acce- 
leration on entering the circular arc. FFACC is the constant 
acceleration on leaving the circular arc. 


0) ly EACC 

o | FFACC eG) 

WwW i if 

~~ | 

Ww 

Sa! : 
ayo ala STEP 2 STEP: oo 

Z pms oe ie cae 

STEP 4 STEP 5 STEP 6 
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SWITCHES 


s READ 


WRITE 

HEAD ING 
AND 

SWITCHES | 


—— 


Zak Vtigdaane 
W10et > ¥(YES)37/ END 


ENE \ 
~~ 
en = 


| N(NO) 


SET 
MATRIX A AND B 


CALL. 


SEER OUEINE SDN BS ) 


SET 
INITIAL VALUES 


OF 
SOME VARIABLES 


CALL 
SUBROUTINE LOTRAN 
SUBROUTINE TIRES 
SUBROUTINE BRAKE 
SUBROUTINE STRSLP 


Figure 1. Flow diagram for AVDS3, main program. 
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| 
{ 
| 
| 


eo ae aN 
SUBROUTINE VELACC 


CALL 
SUBROUTINE CIRCLE 


SET 
NPTS11 AND IPOINT 
AND 

INITIAL VALUES 
OF 
TIME AND IPT 


Figure 1. (contd) Flow diagram for AVDS3, main program. 


Zoi 


@) 
CALL 
SUBROUTINE MOTEQS 


VA 


“ TIME<0.5 | 
_N 
ee 
ICOUNT>1 
N 
SET 
Al to A6 


Al TO A6)< 0.001 ~ | NUMBER=NUMBER+1 | 
N | 


ANCOR. | 
Al TO A6) >0.001->——*| numBER=0 


| 
N val 


NUMBER > 4 : TSW24 = 


N 


! 


S 


Figure 1. (contd) Flow diagram for AVDS3, main program. 
28 


20 
m2 x €: 


N 


SET 
TCOUNT = O ANT ITR = O 


INCREASE > 
TIME AND IPT STEP 


20 


Figure 1. (concl) Flow diagram for AVDS3, main program. 


Z9 


SUBROUTINE MOTEQS 


Coe 
Se 
CALL ~ 


= 
SUBROUTINE TIRES J 


RETURN 


CALL INVER 


SET | 


WL to ¥6, Ad, AD, D | 


I 


ANY OF 


Bl TO es LCOUNT+! | 
aN 


j 


Figure 2. Flow diagram for subroutine MOTEQS 
30 


ANY OF 
1 TO B4 


| > SMALL NUMBER 


; Y 


CALL 
SUBROUTINE STRSLP 
RETURN 


Figure 2 (conel) Flow diagram for subroutine MOTEQS. 


SUBROUTINE TIRES 


| 
| SET 


INITIAL VALUES 
OF 
VARIABLES 


READ 
TIRE, FIFTH WHEEL DATA 


WRITE 
TIRE, FIFTH WHEEL DATA 


SET 
TRACTOR C.G. ACCELERATION 
VALUES 


COMPUTE 
FIFTH WHEEL MOMENTS 
CALI 

SUBROUTINE LOTRAN 
SUBROUTINE BRAKE 


Figure 3, Flow diagram for subroutine TIRES. 
. SIZ 


FRICT. = 
i 


FRELIS * 


CALL 
SUBROUTINE STRSLP 


DISTRIBUTE 
TIRE NORMAL LOADS 
AND 
TIRE BRAKE FORCES 
AS PER 
NUMBER OF WHEELS 


LTITRI 
MODIFIED ELLIS FORMULA 
OR 


| 


N 


—~————4 


ale 


ee 


} 
| WRITE F 
WARNING 


eens ae 


ee ee 


IITRI TIRE SIDE FORCE FO 


N Gis0 => ¥ 


FRICTION FUNCTION OF 
TIRE NORMAL LOAD 


NORMAL LOAD 


Figure 3. (contd) Flow ae for subroutine TIRES. 


FRICTION NOT A. 
FUNCTION OF TIRE 


RMULA 


SET 
BRAKE FORCE 


TO 
AVAILABLE LIMIT 


IITRI TIRE SIDE FORCE FORMULA 
OR 
TITRI MODIFIED ELLIS FORMULA 


ELLIS FORMULA 


COMPUTE 


| COMPUTE 
MAXIMUM SLIP ANGLE 


| MAXIMUM SLIP ANGLE 
ee EN A ee | __ VALUES 
Y 
ISW16 = 1 oie 12 
oN 
Y 
sw27 = 
N 


N 
N 
Y 
WRITE 
WARNING 
N 


Figure 3. (contd) Flow diagram for subroutine TIRES. 
34 


WRITE 
WARNING 


COMPUTE 
TIRE SIDE FORCES 


HAS 

IRE SIDE FORCE 
EXCEEDED 

FRICTION ELLIPSE 


Figure 3. (contd) Flow diagram for subroutine TIRES. 
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SET ! 
TIRE SIDE FORCE | 


TO 
AVAILABLE LIMIT 


Na feR eats Sie 


COMPUTE 
TOTAL TIRE SIDE FORCE 
A 


ND 

TIRE CONSTANT RM(I) 
AS PER 

NUMBER OF WHEELS 


COMPUTE 
TIRE CONSTANTS 


Q(I), T(I), RN(I), P(T), R(T) 
AND 
S(T) 


COMPUTE iain) 
MATRIX ELEMENTS 


(contd) Flow diagram for subroutine TIRES. 
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—=—— 


REARRANGE 
MATRIX ELEMENTS 
ACCORDING TO 
NUMBER OF SEMITRATILERS 


RETURN 


Figure 3. (concl) Flow diagram for subroutine TIRES. 


ey 


SUBROUTINE BRAKE 


\ 


START | 


ae . ‘ Y 
OUST > (Ses 
~ 


SET 
INITIAL VALUES | 
OF | 
VARIABLES | 

| 

: | 

SSeS | 


READ 
BRAKE FORCE DISTRIBUTION 
DATA 


WRITE 
BRAKE FORCE DISTRIBUTION 
DATA 


Figure 4.Flow diagram for subroutine BRAKE, 
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oe) 4 


ACCELERATION/BRAKING | _ BRAKING FORCE DISTRIBUTION | 
| FORCE DISTRIBUTION | MANEUVER 
MANEUVER | WITH BRAKING 


WITHOUT BRAKING 


BRAKE FORCE DISTRIBUTION 
| IN PROPORTION TO 
TIRE NORMAL LOADS 


BRAKE FORCE 
DISTRIBUTION 
AS 
SPECIFIED 


COMPUTE 
BRAKE FORCE DISTRIBUTION 


RETURN 


Figure 4. (concl) Flow diagram for subroutine BRAKE. 
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SUBROUTINE TAYINT 


SET | 
INITIAL VALUES | | 

OF | 
VARIABLES =| 


| COMPUTE | 


| YAW ANGLES 
AND 
YAW ANGULAR VELOCITIES | | 
USING ie 
TAYLOR SERIES (| 


Figure 5. Flow diagram for subroutine TAYINT. 
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SUBROUTINE LOTRAN 


¥ 
< 
READ 
VEHICLE DATA 


| READ 

AERODYNAMIC DATA 
| COMPUTE 
SPRUNG MASSES 


WRITE 
NUMBER OF SEMITRATILERS 
AND 
VEHICLE DATA 
AND 
AERODYNAMIC DATA 


Figure 6. Flow diagram for subroutine LOTRAN. 
| 41 


SET 
INITIAL VALUES | 

OF | 
| _ VARIABLES 


| 


—e | 


TSwl2< 1 


COMPUTE 
NORMAL COMPONENTS 


OF : 
VEHICLE WEIGHT 
| 


COMPUTE 
STATIC TIRE LOADS 


COMPUTE 
RELATIVE WIND VELOCITIES 
AND 


AERODYNAMIC COEFFICIENTS 
AND | 
AERODYNAMIC FORCES AND MOMENTS | 


rs 


Figure 6. (contd) Flow diagram for subroutine LOTRAN. 
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N 
TSW. 


EFFECTS OF EFFECTS OF 
DOWNHILL MOTION UPHILL MOTION | 


she noe LAM Acs 


COMPUTE 
LOAD TRANSFER 
PITCH EFFECT | 


COMPUTE 
STATIC PLUS PITCH LOAD 


TIRE NORMAL LOAD 
HANGED SIG 


Figure 6. (contd) Flow diagram for subroutine LOTRAN. 
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G3) 


| 


[ COMPUTE | 
: LOAD TRANSFER | 
ROLL EFFECT | 


| 
| 


COMPUTE 
_TOTAL TIRE NORMAL LOADS 


a 


HAS 
—~ TITRE NORMAL LOAD 
CHANGED SIGN 
ts ae 


COMPUTE 
| AVAILABLE ROLL LOAD | 
ON 
LIFTED WHEELS 


! COMPUTE 

ROLL LOADS 

! ON | 
| REMAINING WHEELS _| 


COMPUTE | 


TOTAL TIRE NORMAL LOADS | 


Figure 6. (contd) Flow diagram for subroutine LOTRAN. 
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ISW29< 1 


COMPUTE 

BRAKE FORCE DISTRIBUTING 
CONSTANTS 

IN PROPORTION TO 

TIRE NORMAL LOADS 


INITIALIZE 
MATRICES 


COMPUTE 
NEW 
| MATRIX ELEMENTS 


REARRANGE 
NEW 
MATRIX ELEMENTS 
ACCORDING TO 
NUMBER OF SEMITRATILERS 


RETURN 


Figure 6. (concl) Flow diagram for subroutine LOTRAN. 
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SUBROUTINE STRSLP 


SET 


OF | 
VARIABLES 


INITIAL Rae 


| COMPUTE 
| POSITION, VELOCITY 

AND : 

ACCELERATION VALUES 


FOR 
| SPRUNG MASSES | 


COMPUTE 
STEERING ANGLE 
(6) 


| WRITE 


| WARNING | 
| 


SET | 
LEND= Ba 
(RETURN ’ 


Figure 7. Flow diagram for subroutine STRSLP. 
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a 


[ COMPUTE | 


| ae | APPROXIMATE | 
SLIP ANGLES 
| a aa een i aoe 
ee 
SET 
| VARIABLES 
FOR 


_ STABILITY CHECK | 


Figure 7. (contd) Flow diagram for subroutine STRSLP. 
47 


COMPUTE 
VARIABLES 


WRITE 
HEADING | 


RETURN 


Figure 7. (contd) Flow diagram for subroutine STRSLP. 


48 


WRITE | 
OUTPUT | 


| 


| SET 
1\CONTRL VALUE | 


| N 
4 
<P 
_ 


ITR=2 


CALL 
. SUBROUTINE LPCK1L 


(contd) Flow diagram for subroutine STRSLP. 
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Figure 7. 


{ 
| CALL 
| SUBROUTINE LPCK1 a 


SET 
VARIABLES 
FOR 


Figure 7. (concl) Flow diagram for subroutine STRSLP. 


50 


Figure 8. 


SUBROUTINE VELACC 


|; COMPUTE 
TOTAL 
LENGTH 
AND 
WIDTH 


WRITE | 
DATA | 
AND | 
HEADINGS 


ISW11 #0 


SET 
INITIAL VALUES 
OF 


PARAMETERS 


32 


Flow diagram for subroutine VELACC. 


ol 


N Y 
iE —<IXPOS (1) > CLONGL>— ae | 
| = | 
| 5 Pee oe | 
[COMPUTE COMPUTE 
| XPOS,YPOS, DY XPSO, YPSO, DY, DDY, XPOS 
| AND AND 
| DDY YPOS 
FOR FOR 
INITIAL FOLLOWING 
LANE CHANGE | REVERSE LANE CHANCE | 
ue —_-— — --- a 


wy 


COMPUTE 
XVEL, YUEL | 
AND 
KACG, VACC 


XPOS (J) << CLONGL 


Figure 8. (contd) Flow diagram for subroutine VELACC. 


DZ 


SET 
VARIABLES 
AT THE END 
OF 
INITIAL 
LANE CHANGE 


Y 
XPOS (J) > CLONGA 
N 
INCREASE 
TIME STEP 
Y 


COMPUTE 
PATH VELOCITY 
AND 
ACCELERATION 


36 


Figure 8. (contd) Flow diagram for subroutine VELACC. 


5): 


| SE 
POSITION, EOGrY 


“ACCELERATION VALUES | 
FOR | 

| A STRAIGHT RUN | 
AT THE END OF 


_ MANEUVER 
ae a ae yi 
<ISW1l = 0 >——____{39) 
Mn eg 
N 


37 


LATERAL ACCELERATIONS 
AND 
TRACTOR YAW ANGLE 
VALUES 


READ 
FORWARD ACCELERATION 
VALUES 


Figure 8. (contd) Flow diagram for subroutine VELACC, 
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aeons ae 


COMPUTE 
, POSITION AND VELOCITY | 


| VALUES 


READ 
HILL ANGLE 
AND 
BANK ANGLE 


WRITE 
OUTPUT 


RETURN 


Figure 8. (concl) Flow diagram for subroutine VELACC. 
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SUBROUTINE CIRCLE 
LT 


\ 


\ 
START | 
Cw, 


\ 


— es 


COMPUTE 
MANEUVER WIDTH 
AND 
VARIOUS 
MANEUVER COORDINATES | 


WRITE 


DATA 
AND 
MANEUVER DESCRIPTION 


| Shc, 


INITIAL 
VALUES 
OF 
VARIABLES 


COMPUTE | 
POSITION, VELOCITY | 
AND | 

j 


ACCELERATION VALUES 
| FOR 
| INITIAL LANE CHANGE APPROACH 
TO 
| ___THE CIRCULAR ARC 


~ 


oe 


Y 
XPOS SECT == —— 


(a0) 


wn 


Figure 9. Flow diagram for subroutine CIRCLE. 
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INCREASE 


COMPUTE 
VARIABLE | 

AT THE ENTRY POINT , 
TO THE 

CIRCULAR ARC 


COMPUTE 
PATH VELOCITY, ACCELERATION | 
AND 
THETA VALUES 
ON THE CIRCULAR ARC 


COMPUTE 
POSITION, VELOCITY AND 
ACCELERATION VALUES 
ON 
THE CIRCULAR ARC 


SWLTCH> 0.0 


Figure 9. (contd) Flow diagram for subroutine CIRCLE. 


1 


GEN 


A323 \ 
Ne, 


_COMPUTE 


AT THE EXIT POINT 
| FROM THE 
=) Ue ICIRGHIAR ARC 


ame 
: COMPUTE | 
| PATH VELOCITY, ACCELERATION 
| AND 
| XXPOS VALUES 
| FOR 
| FINAL LANE CHANGE EXIT 

FROM 
THE CIRCULAR ARC 


! 


COMPUTE 
| POSITION, VELOCITY AND 
| ACCELERATION VALUES 
| 
| 


FOR 
THE LANE CHANGE EXIT 


——-— - | ———$——$—$_$ $$ { 


RO isons eS me 
4 ; 
COMPUTE 
POSITION, VELOCITY AND 
ACCELERATICN VALUES 
FOR | 
A STRAIGHT RUN 
AT THE END OF 
MANEUVER 


| 


@) 


Figure 3. (contd) Flow diagram for subroutine CIRCLE. 
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565 


@) 
ee oa 


PUT | 
| VARIABLE VALUES | 
| ON THE 
| FINAL LANE EXIT | 
t | 


ND 
STRAIGHT RUN 
IN 
ORIGINAL 
COORDINATE SYSTEM | 


| - WRITE | 
| | OUTPUT , 


| 


Figure 9. (concl) Flow diagram for subroutine CIRCLE. 


a) 


SUBROUTINE LPCK1 


COMPUTE: 


MASSES 


RE-NAME 
VARIABLES 
| 


| 


COMPUTE 

VARIABLES 
ALP MATRIX 
BLP MATRIX 


CALL 
SUBROUTINE INVERS 


ae 


ISWICH = 


| COMPUTE , 
| MATRIX E| 


CALL 
SUBROUTINE ROUTH 


r 


RETURN 


\ END 


Figure 10. Flow diagram for subroutine LPCKl. 
60 


SUBROUTINE ROUTH 


COMPUTE | 
COEFFICIENTS OF THE | 
CHARACTERIC POLYNOMIAL 
e.g. APOLY, BPOLY, CPOLY, 
DPOLY, EPOLY AND FPOLY 


WRITE 
THE 
COEFFICIENTS 


| COMPUTE 
ROUTH CRITERIA 


| COEFFICIENTS | 


WRITE 
THE 


} 


COEFFICIENTS 


Figure 11. Flow diagram for subroutine ROUTH. 
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C ### AVDS3 eMAIN PROGRAM #*## 
DIMENSION A(898)s B(891) 
COMMON/C100/DDPHI1 » DDPH 
COMMON /C190/1SWe 


I2 » DDPHI3 » DDPHI4 » DDPHIS 
/C230/1END/C240/TINT 


» DDPHI6 


COMMON/C11/15W2B e ITR » ICOUNT 

COMMON /C200/AeB 

COMMON /C320/1SW359ISW4 

COMMON /C330/I1SW69I1SW7 

COMMON /C340/I1SW8 »« ISw30 

COMMON /C350/1SW9 » [SW29 

COMMON /C380/NPTS11 

COMMON/C400/ISW159ISW16 » ISW17 ¢ ISW1B 9 

COMMON /C405/ ISW22eISW239TSW2451SW5 

COMMON/C430/1SW14 » ISW27 » ILPCK » NUMBER 
10 READ (5930) 

LISWIA » ISWIT7 9 

21SW25 9 ISW26 9» 
30 FORMAT(1615) 

WRITE (64301) 


ISW19 » ISW20 » 


ISw2l 9 
I1SW30 ¢ 


ISW2e » 
ISW3l 9 


ISW1B 9» 
ISW27 9» 


ISW19 4 
ISW2B 


ISW20 9 
ISW29 9 


301 FORMAT(1H1] » 49X 9» 34HSIMULATION OF ARTICULATED VEHICLESs//) 
WRITE (66302) ISW3eITSW4s9ISWSoITSW6eITSW7 oe ISWEsISW99TSW1OeISW14sITSW15,9 


LISWL6EsISW17oISW1BoISWIIgISW20 9 ISW2] op ISW229ITSW239TSW259TSW26 
CISW27 » ISW2B 9» ISW29D »9 » I[SW30 » ISW3l1 » IPOINT 


302 FORMAT (59Xs16HCONTROL SWITCHES s//91Xe97THISW3 = Ilee5XeT7THISW4 = 
le7HISWS = T295Xe7HISW6 = L2e5Xe7HISW7 = IL205Xes7HISWS = T295Xe7HISW 
29 = T2e5XesTHISWlLO= TL2e5Xe7HISW14= L2e/91Ks7HISWI1S= Te95XeT7HISW]l6s 


31295Xs7HISWI7= T2e95Xe7HISW1B= T2e5Xe7THISW19= T2e5Xe7THISWe0= 


47THISW21l= L2s5Xes7THISwWeed= LeeSXe7THISW23= I2e/o1XeTHISW25= 1295XeT7HIS | 
5W26= LeoSXe7HISW27= LesSXs7THISW2B= L295XeT7THISW29= I295Xe7HISW30= I 


A29OXeTHISW31= L295Xo7HIPOINT=120//) 
IF (ISW1lO.LT. 1) GO TO 37 

DQ 60 I = 148 

DO EO WW) se 8 


= 20 
60) BCI) =: 0 


TAO) AWOTieule). c=. 3) 
CALL INVER 
NUMBER = OQ 
TERPCK = 0 
MESH <== 1Orei0) 
ISWes = 0 
ISW] = 0 
NPTS)1 = 0 
IEND 0 
ISwe 
IPT = 0 
ITR = O 
ICOUNT = 0 
CALL LOTRAN(ISW)]) 

CALL TIRES(IPToISW1lsTIME) 


(A989B919DET) 


ou 


0 


Figure 12, AVDS3 computer program listing. 
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ISW3IeISW4eISWSeITSW6sISW7oISWBsISWIeISW1OsITSW14s1SW15,y 
ISW23 » 
IPOINT 


I295K 


1205Xe | 


Sew CALL BRAKE (TIME,ISwWl) 

SA CALL STRSLP(IPTe+eTIME) 

54% 51 IF (1SW14.6F.1) GUO TO 57 

55% CALL VELACC(NPTSsTMAX) 

S6% S57 CONTINUE 

S 7% Leo, LSw5,) eGk envi) GO, TO. 58 

5 tt CALL CIRCLE(NPTS « TMAX) 

59% SB CUNTINUF 

6% NPTS11 = NPTS 

6 ) % TF CIPOIWT elf Te 1) LROINT = WETS 

A ptt TSwi' = 1] 

63% Tlite = 0. 

64% Pee: 1 

Ky + 20 JE CIPTeGTeNPTS) GO TO 1d 

66% LECIe)N <Gl. IPOINT) GO°TO.,10 

67% IF (TIME*«GTeTMAX) GO TO 10 

6R% CALL MOTEQS (ISwloIPT>sTIME) 

AY% PECVEND EQe 1) GO 10 10 

To%* TE (Ce. 1SWel «kl<e«.1.) ,.GO. TO 100 

71% Tree ME elite. Oso ) , GOs 10.100 
| 12% IF CICOUNT eGTe 1) GO TO 100 
73% Al = ABS(UDPHI1) 
| T4% Ac = ABS(UDUPHI2) 
75% A3 = ABS(UDPHI3) 
{ 76% AG = ABS(UDPHI4) 
| T7* AS = ABS(UDPHI5) 
T8% A6 = ABS(DDPHIo) 
\ 7 Q% PACA cle T 6 Vie OO eANDe Al2eLTe000] eo ANDe 
f A () te ] ASeLTeVeDADNVL eANDe ASeLTeDeD00U] eo AND. 

3] 4s fe ASeLTe2U2N00] .ANDa AGel TeVe0001) NUMBER = NUMBER ¢ 1 
HOt IF (AleGT ee 0001 eOR «© APoGTeDe O00] eORe 
| H Bit 1 AZeGTeVe000) OR « A4eGT.020001 .OR. 
RGt 2 D5eGTeMe000]1 eOK « AbeGT&000001) NUMBER = 0 

BO*% IF (NUMBER eGTe 4) ISWe4 = ] 

Be % IF (NUMRER eEQe 20) GU TO 10 

B87 IF C(NPTS=IPT) el Te 20) ISW24 = ] 

BRA 100 CONTINUE 

RO % IF (ISW2A8 eLTe 1) GO TO 10] 

Qe LEXGPY LT. 3) GO TO 101 

Gg) % IF(ITR «FQe 1) GO TO 20 

Ge 101 CONTINUE 

Q3% ICOUNT = ¥U 

G4 tt ITR = 0 

Qh TIME = "FPME= +" TINT 

96% Peye at eel +. 1 

O74 GQ TN 20 

98% 37 CONTINUE 

99% END 

END OF COMPILATION: NO DIAGNOSTICS. 
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SURROUTINE MOTEQS (ISW]l»IPT»oTIME) 
DIMENSION A(898) » B(Bsl) » ALPHA(14) 

} 4A(696) » BB(6el) oe 
? AAA(494) » BBB(491) 
COMMON/CI1I1/ISW28 » ITR » ICOUNT 
COMMON/C405/1SW22 9» I5W23 9 ISW24 » IWS 
CUMMON /C30/PHI1 »PHI2sPHI39PHI49PHI5ePHI6 
CUMMON /C90/DPHI 1 eDPHI 29 0PHI3e0PHI4sDPHISeDPHI6 
COMMON /C1LOO/DDPHI1 »sDDPHI 2 »sDDPHI3»DDPH14sDDPHI5*sDDPHI6 
COMMON /C200/ZA9K 

COMMON/C210/ ALPHA» DELDEL 
COMMON/C220/DELT AD 

COMMON/CA30/ 1 END 

COMMON/C300/ AAA e BBB 

COMMON/SC310/ AA KB 

COMMON /C320/I1SW3eTSW4 

COMMON /C360/DEILTA 

COMMON /C370/DELD 

Cott TIRES(IPTsISWle TIME) 

IF (LEN eCEQe1) RETURN 

SOLVE SIMULTANEOUS LINEAR EQUATIONS 
TF CRSWS cE. 1)" GO) TOY 

CALL INVER (As8eBel DET) 


DDPHI1 = B(lel) 

ODPHIe = B(2el) 

DDR Aas CSC aie) 

DDPHI14 = 8(461) 

DDPHIS = 8(5el1) 

DDPHI6 = B(6e1) 
DEBOBEw=s B57) 

DELL = p(Bel) 

DRE TAD. =) VED TADN +4 DEED 
GOS Owes 


CALL INVER (AA9698B5919VDET) 
DDPHI1 =BR(1¢1) 

DDPHI2 =BH (261) 

DDPHI3 =BK (361) 

DDPHI4 =BHK(4¢1]) 

DELDEL =B8(5e61) 

DELD =BK (661) 

DEETAD c=) DEL TAD = DELD 


G0 7FQ-13 
12 CALL INVER (AA4e498BB91 9DET) 
DDPHI1] = KBBB(1lol) 
DDPHI2 = RBR(201) 
DELDEL = BBR(3el1) 
DELD = BBB(4.61) 
DEETAD =“DERTADS + DEED 


13 CONT INUF 
TF CUSWeB ek te 1) (GO2LTO N46 
LEGYP TA lee 3) GOS nO ers 
IFC ASS 1 )DPHI1).G7T.0-U00001.0R-ABS(DDPHI2),.GT-0.900001+0R, 
LAISCDELDEL),GT.0.900001.0R.ABS(DELD).GT.0,0001) 1COUNTS{COUNT+1 
L=(A8S0NNPHI1).57.0-. 00001.90R.ABS(ODPHI2),G6T.0,000001,0%. 
LASSCDFLDEL).«GT.O »«00001,OR.ABS(DELO).GT,O.-QON1)ITR=1 
I= (AKSCOELDELI.LT»O,000001,AND.ABS(DELD?-LT,0-0901) JTRee 
WRITE (6015) IPT>sTIMEsDDPHI1] sDDPHI2eDELDEL »DELD 
15 FORMAT (/o1lXeISeF6ee2s4E15e/9/) 
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] # 
ee 
| 3a 
ot 
| bse 
| be 
7 


pats 


i) eo 
} Le 
iis 
‘12k 
Mt] 3s 
(148 
L5* 
lat 
| EB 
Les 
) ou kr 
Cue 
2)* 

| 22% 
23% 
| 24k 
25% 
Qn 
27% 
| en 
} 29% 
| 30% 
p 31+ 
i) 32% 
| 33% 
| 3aix 
35% 
36% 
| 37% 
| 38H 
i 30% 
4s 
| 4h 
| Bae 
| 


43% 
44% 
45% 
| GA 
47% 


6] % 
62% 
63% 
64% 
65% 
66 
67% 


END OF 


14 CONTINUE 
LE ( TSW26eEQe) eANDe ICOUNT.GTel1) GO TO 16 
ey te (ig TAYINT (IPT) 

16 CONTINUE 
CALL STRSLP(IPTs»TIME) 
RETURN 
FENG) 

COMPILATION: NO DIAGNOSTICS. 


] 


] 


SUBROUTINE TIRES(IPTeISWleTIME) 

TF (1SW1e6GTe0) GO TO 1000 

DIMENSION F (14) 90614) 0FZ(14) »9ALPHA (14) »RM(14) 9 RN(14) 9 R(14) 0 T(14) » 
S(2) 9P (2) 9Q(2) 9A (808) 9B(891) sYACC (500) »XACC (500) oXK (14) 

DIMENSION AA(696) 9» BB (601) 

NIMENSION AAA(4e4) 9» 4HBBR(401) 

DIMENSION ALFAM(14) 

DIMENSION CMZ(14) 

DIMENSION CMLTFR(14) » FRICT(14) 9» FZ7(14) » DD(14) 

QIMENSTION DOMULT (14) 

CUMMON/C10/CK49CB79CB1U 9CB13eCB169CB39CB69C899CB129CB15 

COMMON/C20/CMST1 eCMST29CMST39CMD1 eCMD2 

COMMON /C30/PHI] ePHI CoPHI3ePHI4ePHI5e9PHI6 

CUMMON/C40/CMT 9 CMAZ1] 9 CMAZ29CMAZ3 9 CMAZ4 9 CMAZ5 eo CMAZB 

COMMON/SCS0/CH] 9 CKH29CB59CKB8eCB11,CB14eCB17 

COMMON/CH50/CD1 9 CD39CD5eCD7sCD9eCD0115CD13 

COMMONS CTUSFAX] o9FAXC oF AX3S9F AX4 oF AXSoFAXKG 

COMMON/SCBOUSFAY] 9 FAY2oFAY39FAY4 oF AYSoFAY6 

COMMON /C90/DPHI 1 eDPHI2sDPHI390PHI4eD0PHI5e9D0RPHI6 

COMMON/CLIO/SYACC 9 XACC 

COMMON/C160/CV26CD4 sCV6eCD8eCD1]()sCD1leeCD14 

COMMON/C170/F Z 

COMMON/SCL1BOZF oD 

COMMON/C200/A 0B 

COMMON/C210/ ALPHA sDELDEL 

COMMON/C220/DELTAD 

CUMMON/C230/TEND 

COMMON/C250/DEL TAM 

COMMON/C200/AK 

COMMON/C300/ AAA BBB 

COMMON/C310/AA0BB 

COMMON /C320/1SW391SW4 

COMMON /C340/I1SW8 »9 ISw30 

COMMON /C360/DEL TA 

COMMON/C4U0/1SW15eISW16 9 ISW17 © ISW18 » ISW19 » [SwW20 » 
1Swe5s » [Sw26 

COMMON/C450/FRKICT »« ALFAM 

DO 100 I = 1914 

MKC) =" (Ole'0 


El) = 210.0 
Ue Gah oe 0) 
R(I) = 0060 
RM(T) = Oe 
RN(T) = O00 
PLLA) FSO C0, 


OOiG Tes 070) 9 
FRICT(I) = O04” 
65 


100 


101 


10 


13 


11 


14 


ALFAM(T) 
CMZ(]) = 
DOM VOe a 
Sire) 0.0 

W(T) eV 

eek 6 BD) OV 

CM 67 Hel) 

CM147 0.0 

CMeAe7 0.0 

PGES WG re Elven) GO Or a3 

FORMAT (AF 10.0) 

FELD (Se10) DELTAM » CKW) » CWl » CFW] »9 CkKWe » CW2 » CFWe » CKW3 » 
1Cw3 « CFW3 5» FRELIS » ALPHM 

READ (5s10) (CMLTFR(I) ¢« I = 1914) 

WRITE (6¢11) DELTAM +» CKW1 » CWl » CFWl » CKWe » CW2 » CFWe » CKW3 
ie Cus s (CHWS) ss FRELES. 9 ALAM 

FORMAT (26H MAXIMUM STEERING ANGLE = F6e4s8H RADIANS9//953H EXTERNA 
1t FUNCTIONS ON TRACTOR FIFTH WHEEL ### K(W1)=F9009 LIH ##% C(W1l) =F 
? 9.09 Nala) vate (e 
3F (Wl) =F9OL1L/S/59H EXTERNAL FUNCTIONS ON FIRST DOLLY FIFTH WHEEL 44% 
G4 RK (we) =EFGeLolLIH #%% C(W2)=EF9elolOH HH CF (WL) =F9e1//6O0H EXTERNAL 
SFUNC TIONS ON SECOND DOLLY FIFTH WHEEL ##### K(W3)SF9e1le11IH *## Cw 
63) =FGeleleh ##H CF (Ww 3) =F90I/S/53H COEFFICIENT OF FRICTION IN MODIFI 
7ED ELLIS FORMULA = F60e4%s39H MAXIMUM SLIP ANGLE IN ELLIS FORMULA = 
AE O6e4e/S/) 

WRITE 6eL 4) SCOMETPR CI) ve hos elo) 

FORMAT (14H CMLTFR( 1) = FSe2s5Xo91l4H CMLTFR( 2) = FSe2e5X914H CMLIF 
IR( 3) = Foe2s5Xol4H CMLTFR( 4) = F52205Xe14H CMLTFR( 5) = FSe20//s 
C14H CMLTFR( 6) = FSees5Xo14H CMLTFR( 7) = F5e295X014H CMLTFR( 8) = 
3 FOe2eSXel4H CMLIFR( 9) = F5e2s5X914H CMLTFR(1U) = FOHeesDXe//914H 
4CMLTFR(11) = FSe2@e5Xel4H CMLTFR(12) = FSe2s5X01lSH ECMIETRRIGIS) i= Thole 
Se edXeI 4H CM TFR(14) = FSeeo/S/) : 


Oe’ 
Pa) 
lee 


ou ou 
lc tl 


RETURN 

DVYAe = VACEC CLE TP) 

DIVX =e OAC ENP Th) 

IF (DRPHI1] = DPHI2) 30093012302 
CFwWwwl = —- CFwl] 

SO TO 304 

CFwwl = 0-0 

GO mrOns 0/4 

CFwwl = CFw) 

CONTINUE 

IF (DOPHI3 = OPHI4) 400594010402 


CFWwe = = CFwe 
GO TO 404 
CFwwe = Uell 

G0 TN 404 
CFwwe = CFwe 
CONT TINUE 

IF (NPHIS = OPHI6) 500¢5015502 
CkFww3 = = CFw3 
's0 TO So4 
CFww3 = 0-0 

GO TO 5n4 
CFiww3 = Crw3 
CONT INUF 
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| 


104% 
Loose 
104% 
107# 
LOHss 
}OO% 
Nels 
lil# 
lle# 
ll) 34% 
L1)4% 


tS 


17 


14 


19 


16 


2e 


23 


20 


25 


26 


(ath 


CM 62 
CM14Z 
CM2eZz 
GM 57 
EMP3IZ 
CM217 
GAEL LOT 
CALL BRA 


tou uo bouou 


CKw14(PHI1<PH 
CKWe* (PHI3=PH 
CKw3* (PHIS=PH 
-CM6Z 

“CHI 4Z 

“CH22c2 

RAN (ISW1) 

KE (7 IME«ISw)) 


LE CEP He Gh el) GOV TO 12 


CARE “SER 
Ae =f 4 
IF (1Sw3 


DOr Loew 
ReLL a) = 
DDMULT (I 
ND(1) = 
DODO 1 
IF (JSwl7 
RAZ). = 
NOMUL TCT 
DD(I) = 
G0 TO 16 
RAZ = 
DOMULT (TI 
DPIC) = 
40 TO 16 
FZZ(1I) = 
NOMULT (I 
POC) = 
CONTINUE 
HOV20" I 
Tt (I1Swlw 
FZZ(1) = 
DOMULT (T 
ND(T) = 
60 TO 20 
FeZeZe To) = 
DDMULT (T 
DD(I) = 
GO TO en 
FZ Zale = 
DDMULT (I 
DOC1) = 
CONT ITNUE 


SLP(IPT« TIME) 
Py a fe ] eANDe 
= lse 


FZaG1) 
)= 1.0 


DO (T) 
= 394 


SEIT tei. dS 
AN) 
) = 1-0 


D(1) 


EZ CL) eA!) 00) 
) = 126.0 


ELIF Ze 0 


FZ(1I) / 460 
) = 4.0) 


OCI) 74 409 


=1 56 


=f like ls 6ie2 
EZ 1) 
yesh te Gs 


D(1) 


EXZAGT OY? thie 0 
jimis 2% 0 


DIG 7 “Ze 0 


FZ(I) / 4600 
) eS) 


OCI) 7 4.0 


Ie) 
14) 
16) 


1Sw4 


+ 
+ 
+ 


» 19 


9 23 


IF (CIA eEGe 6) GO TO 40 


DO 24 I 
IF (ISW19 
EaZe Ze (19) g a= 
DODMULT CT 
DD(I) = 
G0 TO 24 
FeAZa Glu) p= 
DOMUILT (I 
DD(I) = 
(0 TO @4 
Fo /A7aol) a a= 
ODMULT (I 
OOM ES 


= 748 


silo): 25: 9 26 
F219 
k=l te20) 


D(T) 


FeLi Gl ms ere 0 
Ny BS ran 


DGIOe a7: 1270 


FOZ TE WL. PAre() 
) = 420 
DCT) 4 460 
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eral 


Cw1* (DPHI1-DPHI2) 
Cw2* (DPHI3=-DPHI4) 
Cw3* (DPHIS=DPHI6) 


eEQe 1) IA = 10 
IF (ISW3.LTeleANDeISW4elTel) 


IA = 6 


+ CFWWl 
+ CFWWe 
+ CFWW3 


1 Date 
199% 
200% 
201% 
20e* 
203% 
204% 
205% 
CNa6e 
207 
20K 
209% 
elon 
2) 1s 
2l2* 
213* 
214% 
(aa as as 
216% 
217% 
2laR* 


29 


31 


33 


34 


Bis) 


S2 


38 


39 


36 


40 


63 


64 


CONTINUE 

DU) isy GER CY G Ie) 

TEOrS wees )y 29% 9, S10) 9 Si 
FeZeea (eet eZ (ds) 
NOMULT(I) = 140 
DO(I) = DCT) 

GO TO 28 

SAA aati RAO) PP eGK0) 
NOMULT (1) = 220 
HDCT ake OL OR Area sO) 
GOO HO" 28 

7 AaP AAW) Ge Nal 7a pe ASE) 
DOUMULT(I) = 4-20 


DOG ost iGle) iee/ewGra() 
CONTINUE 

LEGA kaQhes LOI nGO) WO 140 
HOM Se. elt sap weulee, 

IF (ISw25 = }) 33934935 
CACAM OO Mt AX el by) 
DDMULT(I) = 1.20 

DOM). =) Os) 

GO) wrOws2 

ELE) a iki Zale w/e eke) 
DOMULT Gia vce 0 

DOM) es DG ZF, *eei0 
GOO siA 

EZZaia ak ZC lemcSia 41010 
DOMULT(I) = 4-20 

DOI), c= OC) 7 40 
CONTINUE 

00 36 I = 134614 

IF (ISw26 = 1) 37938939 
BAVA (EMO aa 7) 
DDMULT(I) = 120 

DOG). Ss OMCs) 

60 TO 36 

EaZiZ(tley) ws Reza ey feel) 
DDMULT(T) = 2e0 

DOM s=niD Cis /aue 0 

GOn TOL 36 

FZZ5C0)) (SAF 201) 9776.60 
DOMULT(I) = 420 

DOG) os=aDiCl ie a0 
CONTINUE 

CONTINUE 

DO 41 IT = 1.4IA 

LPC USWE6: @eEQe 1) .GO" TOS63 
PRIGT CL) =-PRREELS: = JGMETER Gh) 
GO TO 64 

CONT J NUE 

FRICT (CD) = (100 +. 0635 % AZZ) 7 16800.0: )' © “EME TRRIGIS) 


TRANS) 


IF C(FZZ(1)/6800.0) el Te =1e0) FRICT(I) = 0-65 * CMETERGI) * FRELIS 


CONT INUF 

PREZ lees: Glia S HAE Ra Ciel int ky ZeZs Cleat eee 0 
DIl2 = DN(I) #* 2.0 

IF(FRFZI2 = DI2) 42942943 
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Ee 
je 3% 
bar 
ce 
IPA 
1% 
1D se 
ot 
30% 
3) % 
\3e* 
3:33 
34% 
[35% 
3A% 
| 7% 
Ait 
36% 
1GQ% 
lq] 
4e% 
[4 4% 
44% 
45% 
‘46% 
[47% 
4 Rae 
L4Q% 
POs 
ya) Ua 
PSP% 
PS 3% 
254 % 
fo 
Pons 
pre 
25h 
psy# 
260% 
eo] * 
67% 
RG 3% 
264% 
65% 
P66% 
por 
6B 
; 69% 
elo* 
71% 
Tes 
le?3% 
leT4% 
275+ 
T6* 
27 7# 
78% 
279% 
je8(i% 
28) # 
\28e% 


42 WHITE (60/70) J 
TO FURMAT(/95Xe 35HBRAKING FORCE EXCEEDED ON WHEEL NOeI5So/) 

TeCISWYS wsEQs 1) GO. TO 43 
Beas = DELTAD + DOMULT(1) # ((DD(1)/ABS(DD(1))) #* FREZI2 ## 0.5= 
VOBICT)) 

DO(IT) = (DD(T)/ABS(DD(1I))) * FREFZI2 ## 0.5 

DIGINR-s DOMULETHCLY “#* DO CT) 

43 CONTINUE 

TRSCVSWVG, “EGis 2c) GO TO" 'S7 

ALFAM(I) = (920 = 9.0 * FZZ(1) / 6800.0) / STe27 

GU TO 5B 

57 ALFAM(I) 
5&8 CONTINUE 

IF CISW]4G eEQe 1) GO TO 44 

IF (ISW27 eFie 1) GO TO 59 

TF (ARS CALFPHA(CI)) e¢GTe ALFAM(I)) GO TO 55 

59 CONTINUE 

IF (ABS (ALPHA(I)) e¢GTe ALFAM(I)) WRITE(6956) 1 

FCI) = ((3e0 * FRICT(I) * FZ2Z(1)) 4 (200 * ALFAM(I))) # (ALPHA(T) 
1m (ALPHA(I) #* 3.0 4 (3.0 * ALFAM(I) *## 2.0))) 

60 TO 45 

44 CONTINUE 

IF (ABS (ALPHA(I)) e¢GTe ALFAM(IT)) GO 10 55 

Cl = ALPHA(I) 7 ABS(ALPHA(I)) 

F(T) = (FRICT(I) * FZZ2(1) 7 460) * (lle * ALPHA(I) / ALFAM(I) = 
110-0 *# Cl] * (ALPHA(I) 7 ALFAM(I)) #* 260 * 360 * (ALPHA(1) / ALFAM 
PAE) = FE 36:0.) 

GO TO 45 

55 CONTINUE 
WRITE (6456) J 
56 FORMAT (//e5%e46HSLIP ANGLE EXCEEDED MAXIMUM VALUE ON WHEEL NOcl 26 

1/7) 

IF (CALPHA(I) eb Te OeV) FCI) = FRICT(I) * FZZ(1) * (02786 + ALPHA(I 
WO 7 (0.786 * ALFAM(I)) 

IF CALPHA(CI)- «GT. 0-40) FCT) 
1)) 7 (0.786 = ALFAM(I)) 

45 CONTINUE 
FSMAXe@ = (FRICT(I) * F2ZZ(1)) ## 2.0 = (120%2225) * DD(T) ## 2.0 
IF (FSMAX2 el.Te Oc01) WRITE (6046) [ 

46 FUORMAT(SX 9» 3SBHFRICTION ELLIPSE EXCEEDED ON WHEEL NO.I2) 

IF (ISW1S eFQe 1) GN TO 403 

IF (FSMAxe el Te O01) FCI) = 020 

IF (FSMAX2@ ol Te 0-01) GO TO 4] 

403 CONTINUE 
IF ¢( FCI) ##260 el Te FSMAX2) GO TO 4) 
WRITE (6971) I 
71 FORMAT (/99X9 37HCORNERING FORCE EXCEEDED ON WHEEL NOeIT5S9/) 
F(I) = (FCI) /SABS(F(I))) * FSMAX2 ## 025 
41 CONTINUE 

NO 62 = 1.2 

TPC(1Swl6eEQ.1) GO TO 61 

RM(T) = ¢3e*FRICT(I) #FZZ(1)) 7S (ee tALFAM(I))) #( ( (CALPHA(I) ##20)/(ALFAM 
IRC tae eS Oe Ps De 0) 


GO TO) 6? 
GomRMGh ows Ce PRECH CI): # FZZ(1) 7° (400% ALFAM(I))) * € =11260 + 2000 * 


1Cl * ALPHA(I) 7 ALFAM(I) = 920 # (ALPHA(T) 7 ALFAM(I)) ## 220 ) 
62 CONTINUF 
DO 47 T= 394 
IF (ISW17 ef Qe 1) RMI) 200 * RM(T) 
IF (ISW17 eEQe 2) RM(T) 4e() * RM(I) 


PRCESW Tie Qie  b). F CL) Gon eR C1) 


ALPHM 


FRICT(CI): * F2ZZU1)** (06786 = ALEPHACI 


28 4% 47) LEAGUES Wilu/eweibiQiemueyy ihn loiy = 140) Ons tecPu (els) 


Chas bO 48 I = 5.6 

CRS* IF(ISWIR eEQe 1) RM(I) = 200 * RM(T) 
Chat IF (YSW18 eEQe 2) RM(I) = 4-0 * RM(]) 
on7Ts LRA GUSWTB Rel Oley a) wun Cla) esi eielO) ri (ale) 
CRY 48 TRCrSwWie sO. 2) FUT) = 4.10) * Fl) 
CBY% VReGhA Me EGier6)) (GO [10rS4 

CON 00 49 I = 748 

29\* IF (I1SW19 eEQe 1) RM(I) = 20-0 * RM(I) 
CUP IF (CISW19 eEQe 2) RM(I) = 400 * RM(1) 
c9 3% LES GUS WHESE Vie rere RGla) car Are Oat: Face) 
PO4t 49 TE EVSWlOY cE Giese) rl) =) 40k 3 Fe(ele) 

CO Dt MOM Sule wit = aeS rele) 

CIH IF (ITSW20 eFMe 1) RMIT) = 200 * RM(T) 
29K VE CLESW20: Ee 2h) (RM GIP aia OF “RMICT) 
POUR TE CUTSWed cE le) (FeGh) =i eei0h Fes) 
POG Sle TRACTS Weve EF Qle-w2)) (iat Go) Ee) EIS OY ees Se) 
30% EPG ceiGiOler, KON AGO OP os 

31) ] % DO edie) Je Salles le 

302% IF (ISW2S eEGQe 1) RM(I) = 200 * RM(J) 
30 3% IF CLSW2S eEQe 2) RM(I) = 4-0 * RMT) 
V4 % LE CUSW2ES we Oe. (FeCl) Si2i0.0) iG) 
305% 52) be CLSWeS:.- cE Gis. 2) FeCl) sea) 0m te pails) 
306% VO 53 Wh. Se Seth 

307% IF (ISW26 eFide 1) RM(I) = Cel * KM(]) 
INK* IF (ISW26 eFQe 2) RM(L) = Ge * RM(J) 
34 EEGUSW26 ei @e - 1) (FR Clo)! sa) ee Or eeEA Ole) 
310% SS TROLS WA On rele 1a.) ME (Ni) cs 24 ie: Ol ail?) 
31])* 54 CONTINUE 

312% HOMWE60) T=) 

31 4% OCI). = =SIN( DELTA) oS CL) 

3] 4% C ##H% T( JT) DOES NOT EQUAL TIME IN THIS ROUTINE 
se Wala Te@E io sSs = COST CDE AD ist Orc (ate) 

316*# RN(IT) = =F (I) *#COS(DELTA) = D(I)#SIN(DELTA) : 
Sse P(I) = =RM(T)#COS(DELTA) + F(I)#SIN(DELTA) = D(1)#COS(DELTA) 
31% Rh) = ECL FSINGCOEL TWA) =D Ob) FCOSMDEETA) 
319% 60 S(1) = RM(I)#SIN(DELTA) + F(T) #COS(DELTA) + D(I)#SIN(DELTA) 
320% DOV SOE cass etlA 

32)]%* R(T) = =D(1) 

32? % TCT Ne He = KIC T) 

323% BN RN(I) = F(T) 

324% ST14 SHE) att Goes Te Sy nee eas) 
32% ST7% ere es deel (ue) 

326% SLI UGTA RE eet ARS) 

327% Sela 67 7= a ACO), eee) 

3erK% SH 2 Oia) le ely) treeta(olkes) 

324% SMS 4S) Pear teen Golan) 

330% SR14 eit ne Ole) ib ws ane [ob, Greed ie aU CS Yo La ak 2 BHCC) 

33) % Sk78 =r TRAC Se 4 RECG)) 

33e% SR Are SF RiOhY een RiGet) 

333% SR1516 = R(9) + R(10) 

334* SR1920 = R(11) + R12) 

335* SR2E324 = R(13) + R14) 

B66 SN14 = RN(]) * RN(2) + RN(3) + RN(4) 
33/4 SN7B = KN(5) * RN(6) 

33R% SNllle = RN(7) + RN(B) 

339% SN1516 = RN(Q) * RN(10) 

340% SN1920 = RN(11) + RN(12) 

341% SN2324 = RN(13) + RN(14) 

342% SQ12 = OiGla)ae eerauGes) 
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Soi = onl + Site) 

SRilizZ. ROL a+ (Pe) 

SFAX16 = FAX] + FAX2 + FAX3 + FAXG + FAXS + FAXG 
SFAY16 = FAY] + FAY2 + FAY3 + FAY4 + FAYS + FAY6 
A(8s7) = SSl2 * COS(PHI1) = SP12 # SIN(PHI1) 


A(8«8) = ST14 * COS(PHI1) + ST78 #* COS(PHI2) * ST1112 #* COS(PHI3) 
1# ST1516 #* COS(PHI4) + ST1920 # COS(PHIS5) * ST2324 * COS(PHI6) 
2- Sle *# SIN( PHI) 

B(Bel) = =SR14#COS(PHI1) =SR78#C0S (PHI 2) =SR1112#C0S (PHI3) 
1=SK1516# C05 (PRHI4) =SRIV20RCOS (PHIS5) -SR2E324#COS (PHI6) + 
CSNIG#HSIN (PHI 1) *SN7TB#SIN(PHI2O) + SNILIL2*SIN(PHI3) + SN1516 
B#SIN(PHI4) + SNIS20*#SIN(PHIS) + SN2324*#SIN(PHI6) + SFAXKI6 
4=(CMT+#CMST1+#CMD1*CMST2*CMD2+CMST3) *DVX1 = (CMST1*CMD 
51+CMST2+CMD2+CMST3) #CK3* (DPHIL ##2.)#COS(PHI]) = ( (CM 
65T14+CMD1+CMST2*CMD2+CMST3) #C84 + (CMD]*CMST2*CMD2+¢ 
TCMST3) #CRO) # (DPHI2##2 0) *COS (PHI 2) = ((CMD1*CMST2*CMD24CMST3) 
BYCB7 + (CMST2*+CMD2+CMST3) #CBRY9) # (DPHI3##2.) #COS (PHI3) 

RB(Bel) = 6B(8el) = ((CMST2*CMD2+CMST3)#CB10 + (CMD2*CMST3) *#CB12) 
1#(DPHI4##2.)#COS(PHI4) = ((CMD24CMST3)#CR13 + CMST3#CB15) * ( 

2 DPHI5#*2.)*COS(PHI5) = CMST3#*CR16# (DPHI6##2,) # 
3C0S(PHI46) 

A(ie?) = SSl2 * SIN(PHI]) + SP12 # COS(PHI]) 

A(7.8) = 5T14 * SIN(PHI1) + ST78 # SIN(PHI2) + STl1l12 * SIN(PHI3) 
1+ ST1516 * SIN(PHI4) + ST1920 #* SIN(PHI5) *© ST2324 #* SIN(PHI6) + 
25012 * COS(PHI1) 

B(7s1) = =SR14 * SIN(PHI1) = SR78 * SIN(PHI2) = SRIlle * SIN(PHI3) 
L=SRIS1l6 * SIN(PHI4) |= SR1I19G20 * SIN(PHI5) = SR2324 #* SIN(PHI6) 
27SN14 * COS(PRHI}1) = SN78 * COS(PHI2) = SNll1le * COS(PHI3) = SN1516 
3 *#COS(PHI4) = SNI920 * COS(PHI5) = SN2324 *# COS(PHI6) + SFAYI16 = 
4(CM1+*CMST1*#+CMD14*CMST2*CMDC+CMST3) * OVYL = (CMST1*CMD] 
S+CMST24CMD2+CMST3) * CH3 * (DPHI]##2.) * SIN(PHI]) = ((CMSTI 
6+CMD14CMST24¢CMD02+CMST3) # CR& + (CMD1+4¢CMST24+CMD2+CMST3) 
7T# C46) # (DPHIT2#4#2,.) * SIN(PHTI2) = ((CMD1+*+CMST2*CMD2+CMST3) 
4a C57 + (CMST2*CMD2+CMST3) * CRY) * (DPHI3*%2.) * SIN(PHI3) 

B(7e1) = ti7el) = ((CMST2+CMD2+CMST3) * CBLO * (CMD2+CMST3) 

1# CH12) * (NPHI4##2.) * SIN(PHI4) = ((CMD2*+CMST3) * C813 * CMST3 
o* Ci:]5) * (DPHIS*##2.) * SIN(PHIS) = CMST3 * CB16 * (DPHI6*##2.) *# 
3B3SIN(PRI46) 


Gleam iSil)y me. SiC2), dit CD22 + AP4)) + PCR) (CB1+CB3) 
MGlins temas eles: Ce); Jae CD22: -Guks) = Tel) COG + ( QIL) + 
Noga a. #3 (CB14+CR3) 

R(lel) = *(R(01)"R(2)) * CO2 = (R(3)"=R(4)) * COS = (RN(L) * RN(2)) 


Ast. CAL e0RN (3) +RN(4)) * Ca2 +: CMZ(1) + CMZ(2)) + CMZ(3) + CMZ(4) 
2.4) CMSZ. + CMaZ] = SN14 # CB3 * (FAY]: * COS(PHI1) = FAX] * SIN(PHI] 
8) dete CRS. fos(DV.X]) He: SIN(PHI1). = DVY1.* COS(PHII)) * CB3. * CMT 
Mivebn ima) 1 CR44CR6): +. (SS12 % SIN(PHII=PH12)' +: SPl2;* COS(PHI1] = 
PP) ) 

ACen) SCS) 4 = 6) ). 4: CD6 +: (CB44CB6) | (STT4: # SINC PHI I= 
HWPHI2) + SQl2 * COS(PHI1L=PHI2)) 

B(2el) = =(R(5)=R(6)) * CD64#(RN(5)*RN(6)) * (CB5-CB6) + CMZ(5) 

1+ CMZ(6) + CM6Z + CMAZ2 + CB6 # (FAY2 * COS(PHI2) = FaAXx2 * SIN(PHI 
22)) = (CB4+CB6) * (SR14 * SIN(PHI1=-PHI2) + SN14 # COS(PHI1=-PHIe) ) 
3+ (CB4+CB6) # (FAY] * COS(PHI2) = FAX] # SIN(PHI2)) = CMST] # CB3 
4% CH6 # SIN(PHI1-PHI2) # (DPHI1##20.) + (CMST] * CB6 + CMT # (CB4+ 
5CB6)) * (DVX1 * SIN(PHI2) = DVY1*#COS(PXTIe2)) 

IF (ISW3.LTel eAND. ISW4.LT21) GO TO 90 

A(3e7) = (CB7+CB9) * (SSl2@ # SIN(PHTI=PHI3) * SP12 * COS(PHIJ=-PHI3 
Ah) 

A(3e8).= (T(7)-T(8)) *, CD8& +. (CB7+CB9) -* (ST78°>* SIN(PHI2=PHI3) + 
1ST14 * SIN(PHI1=PHI3) *# SQl2 # COS(PHI1=PHI3)) 

R(391) = *(R(7)-R(8)) * CDB+(RN(7)+RN(8)) * (CBB=CB9) + CMZ(7) + 


TEMZ(8) + CM)3Z + CMAZ3 + CBS # (FAY3 * COS(PHI3) = FAX3 # SINCPHI3) 
7 


4ns: 
4H 
40 7% 
4) Ht 
41) Gs 
41% 
4] } * 
4]? % 
a4) 3% 
4] 4+ 
415% 
4)5% 
417% 
418% 
4) 9% 
4Aeir% 
4Ai% 
422% 
423% 
424% 
425% 
4P6% 
42 /% 
4K 
4P 3% 
4 3() * 
43) % 
432e%* 
433% 
434% 
435% 
436% 
43 (% 
434% 
434% 
G4:\% 
44] % 
442% 
44 3% 
444% 
445% 
440% 
447% 
44HKi 
449% 
45% 
45% 
452% 
453% 
454% 
455% 
456% 
457% 
45xn% 
459% 
46% 
461% 


>) = (CH7#CR9) # (SR7B # SIN(PHI2=PHI3) * SN78 #* COS(PHI2=PHI3) ¢ 
35K14 *® SIN(PHI1=PHI3) * SN14 # COS(PHI1=PH13))+ (CB74*+CB9) # ((FAYI 
4+FAY2) # COS(PHI3) = (FAX1+FAX2) * SIN(PHI3)) = CB3 # (CMD1 # CB9 
K+ CMST1L * (CB74+CB9))* SIN(PHI1=PHI3) # (DPHI1##2.) = (CMD1 # CB9 


# (CR4+CHO) + CMST1 * CR4 * (CB7*CB9)) * SIN(PHI2-PHI3) # (DPHI2*# | 


72.) + (CMD) #* CRO + CwMST] * (CB74+CB9) + CMT * (CB7+CB9) ) 
A # (NVX) * SIN(PHI3) = DVY] #* COS(PHI3)) 

A(4.7) = (CB10+CBl12) * (SS12 # SIN(PHII1=PHI4) + SP1l2°* COS(PHII= 
}PH]4) ) 

A(4e8) = (T(9)"T(10)) #* CD1lO + (CBlUe¢CB12) * (STlI12 * SIN(PHI3= 
1}PHI4) + ST78 # SIN(PHI2=PHI4) + ST14 * SIN(PHI1=PHI4) 
2+ SQI12 * COS (PHI1=<PHI4) ) 

2(4,]) = =(R(9)-R(10)) * CD10+4(RN(9)+RN(10)) * (CRI1“CBl2) + 
10M2Z(9) CM7(10) + CM147 * CMAZ4 + CB12 #* (FAY4 * COS(PHI4) 
22 Fax4 # SIN(PHI4)) =—-(CB10*CBl2) * (SR1112 * SIN(PHI3=PHI4) + 


+ 


3SR78 # SIN(PHI2=PHI4) + SR14-# SIN (PHI 1L<PHI4) + SNDPNI2eeSCOS (PAT Saat 


4PHI4) + SN7& * COS (PHI 2=PHI4) + SNi4 * COS(PHII=“PHI4)) + (CB10+ 
5C6l2) * ((FAYL*FAY2*FAY3) #* COS(PHI3) =~ (FAX) *FAX24+FAX3) * SIN( 
6PHI3)) = CR3 #* (CMST2 * CH12 + (CMD) +CMST1) #* (CB104CBl2)) * 
TSIN(PHII=PHI4) # (OPHI1*%*#20) = (CMST2 #* CBl2 * (CB4+CB6) *« CMDI]+# 
A(CB1N+CB1l2) * (CB4+CB6) + CMST] # (CB10+*CBl2) * CB4) * SIN(PHI2=- 
QPHI4) * (UPHIC#H.) 

B(4e1) -= B(4e1) = (CMST2 # CBl2 * (CB7+C89) -+ CMD Te a(eanOe eee) 


T+ Ca7) *# SIN(PHI3=PHI4)°# (DPHI3##2.) “+ (CMST2=* Eble (CMDS EMS ilay 


2+CMT) * (CB10*CK12)) * (DVX) * SIN(PHI4) = DVY] # COS(PHI4) ) 

LF GISW3’ cl Tie “ko SAND ISWS SEOs 1) "G0 110: 600 

A(5e7) = (CB13+*CB15) * (SS12 * SIN(PHII=PHI5) + SP1l2 #* COS(PHI1= 
}PHI5)) 

A(5eB) = (TO11)-T(l2)) * CD12 + (CR)3+CB15) * ($T1516 # SIN(PHI4= 
TPHI5) + ST1L12@ # SIV(PHI3=PHIS) + ST78 # SIN(PHI2=PHI5) + ST14 + 
PSIN(PHI}1=PHIS) + SQJ2 * COS(PHI)=PHKIS)) 

BR(5el) = =(R(1L1I)=R012)) * CD124(RN(11)4RN(12)) * (CB14"CB15) + 
1CMZ(11) * CmMZ(12) * CM21Z2 + CMAZ5 + CB15 * (FAYS # COS(PHI5) = 
PFAXS * SIN(PHI5)) = (CB13*CR15) #* (SR1516 * SIN(PHI4=PHIS5) + SR1] 


312 * SIN(PHI3=PHIS) + SR78 * SIN(PHI2=PHIS) + SR14 * SIN(PHI1=PHIS | 


4) * SNI5]6 # COS(PHI¢=PHI5) “+ SNII1T2 * COS(PHIS=PHTS) Memeo nites 


5C0S (PHT 2=PHI5) + SNI4 * COS(PHI1=PHI5)) + “(CBI3+*¢€BIls) ie ((FAYL*F AY. 


OP +FAY3tFAY4) * COS(PHIS) = (FAX] +FAX2+FAX3¢FAXS) # SIN(PHIS) ) 
7-C83 * (CMD2 # €B15 * (ECMST24+CMD14+CMST1) * (CBIS*CBTS) Dee SUN 
SUPT 1=PHIS) + “Gp P HiT jeter ) 

B(S5e1) = 8(591) = (CMD2 * CK15 # (CH4*+CHG) + (CMST2*CMD1) * (CB4¢ 
1}CB6) * (CBITS+CBIS) +: €MST) * CB4a * (CB13+4CB15))> = -SIN(PA A= PATS) as 
Z(DPHI24#2.) = CEMDe’ * CR15: # (CB7+CB9)) + CMST 28s CBGBs et 
3(CB13*+CR15). + CmDI: * Cave # (CB13*+CB15)) * SIN (CPHITS=PiiiSpeasaecD etl 
43%#42,) = (CmMDe * CB15 * (CBl0+CBl2) + CMST2 * CBLO>* MeES+CBI'5))) 
5# SIN(PHI4=PHIS) # (OPHI4##2,.) + (CMD2 * CB15 * (CMST2*+CMD1+CMST1+ 
eCMT) * (CB13*CB15)) * (DVATD * SIN(PHIS) |= DVY] * COSKRRTS))) 

A(667) =) (SSle:# SIN(UPATI=<PHI6) + SPl2 * COS(PHIT—PANG) esa Ca16 

A(698) = (7(13)-7T(14)) # CD14 + CBl6 * (ST1920 * SIN(PHIS=—PHI6) + 
1ST1516 * SIN(PHIG=PHI6) ¢ ST11 12. 5° SINCPHIS=PHI6) SeSiiemesiN 
2(PHI2=PHI6) + ST14 # SIN(PHIJ=PHI6) + SQl2 * COS(PHI]=-PHI6) ) 

B(651) = -(R(13)"R(14)) * CD144(RN(13) +RN(14) ) # C874 GMZ (13) 
1*+CMZ(14) + CM22Z°+ CMAZ6 = CB16 * (SRI1920 * SIN(PHIS=<PHNG6) + 
2SRI516 # SIN(PHIG=PHI6) ++ SRITI2°** SINCPHIS<PHI6) es SRiemeeot NICE HT 
QA2-PHI6) + SR14 * SIN(PHIL=PHI6) + SN1920 #* COS(PHI5=PHI6) + 
4SN1516 * COS(PHI4=PHI6) © SNT112 * COS(PHIS=PHI6) + “SNISmeReOS( 
SPHI2=PHI6) + SN1I14 * COS(PHI1=PHI6))+ CB16 * ((FAY1L+FAY2+FAY3+ 
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462% 


| 464% 
465% 
466% 
457 
| 4AKs 
464% 
| G7ih% 
| a7) 4 
477% 
473% 
| 4&7 4ase 
4TS* 
| 476% 
| 477s 
OU taves 
47y% 
Amity 
4X) + 
4H ei 
Asx 4st 
4R4* 
4Xd5% 
 4Bo% 
GR i 
ARR 
429% 
4G61)% 
49] * 
45%: 
49 34% 
494% 
495% 
4963: 
49/3 
AoW ier 
499% 
500% 
S()]% 
‘si Waa 
503% 
504% 
S0S*% 
506% 


END OF 


463% . 


GFAY4+FAYS) # COS(PHI6) = (FAXL*FAX2+FAX3+FAX4*+FAX5S) * SIN(PHI6) ) 
P= GEMS T 1+ CMD1T+CMS F2eCMDe), | * Cb3.* "CB r6&* SINCPHIT=PHI6) -* -(DPHIT 
Atte.) = ((CMST1+*CMD1+CMST2+CMD2) #* C84 + (CMD1+CMST2+CMDe) * C6) 
9% CR16 * SIN(PHT2=PHI6) * (NPHI2##2,) 

SGwt) =n Coel) = ((CMDIFECMST2sCMDe)- = CB? + (CMST2¢+CMD2) * CBO) 
Pome tt SINN(PHES=PHI6) # (DPHISt#2)° = CC(CMST2Z*CMD2) * CBIl0 + 
ZEmMDa2 * CBl2) * CRI6 * SIN CPHI4=PH16)*"* “(DPHI4¢##26) “= CmD2 * CBl3 
3#C616 * SIN(PHI5=PHI6) # (DPHIS##2.) + C816 * (CMT*+CMST1+*CMD1+CMST 
42+C“D2) * (DVAL # SIN(PHI6) = OVY] # COS(PHI6) ) 


AQ TT) 9] 

90 CONTI] NUF 
AAA(4e3) = A(B57) 
AAA(4e4) = AlKo#H) 
ARA(393) = AlTe7) 
AAN(304) = A(798) 
AAA(1s3) = Alle?) 
AAA( 194%) = Alle) 
AAA(2s3) = Aleés7) 
AAA(254) = Ales) 
BBB (4el) = BRlbel) 
BBH(3el) = Rl7eol) 
RBB(lel) = R(lel) 
BRBR(2el) = 8B(291) 
GO! FO "91 

600 AA(1l»5) = Ailes?) 
NAG25)) = Aleel) 
AA C369) =A C397) 
AA(4e5) = A(4e7) 
AA(],s6) = A(1ls8) 
AA(2e56) = Ales) 
AA(3e6) = A(396) 
AN(4-6) = A(498) 
AA(5e5) = A(TeT) 
AA(se6) = A(798) 
AN(6e5) = A(Be7) 
AA(6e6) = A(898) 
BB(lel) = Bllel) 
BB(2el) = 6(201) 
RB(3e1) = B(391) 
HK(4e1) = BR(4el) 
RK(S—el) = R(79l1) 
BB(6el) = B(8el) 

91 CONTINUE 
RETURN 
END 

COMPILATION: NO OIAGNOSTICS. 
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] + 

Ot 

3 

4 it 
5 
6% 

Tt 
Rx 

yt 
10% 
Li 
les 
13+ 
14% 
15 
16% 
17* 
1R# 
19% 
Coe 
Colt 
eat 
Cat 
24% 
25% 
24 
27% 
CR 
29% 
30# 
31+ 
32% 
33% 
34+ 
35% 
36* 
37% 
38% 
39% 
4()% 
4)%* 
4e% 
43H 
44% 
45% 
46%# 
47% 
4a% 
49% 
50* 
5] *# 
52% 


} 


} 


C REAN 
2 FORMAT (8F 10.0) 
3 FORMAT (8F10,0) 

201 FORMAT (2110) 


SUBROUTINE LOTRAN(ISW1) 

IF (ISW1].6T.0) GO TO 1000 
ULMENSILON A(698) 98 (891) 
DIMENSION VAX(500)s VAY(500) 
OIMENSION FZSTPH(14) 
DIMENSION FZ(14) 

DIMENSION FZRL(14) 

DIMENSION FZST (14) 

NIMENSION FZ7PH(14) 


DIMENSION VRELX(6) » VRELY(6) » VREL(6) » PSI(6) » Q(6) »FDRAG(6) 

OIMENSION FSIDE(6) » FLIFT(6) » CMROLL(6) » CMPICH(6) « CMYAW(6) 
r) CORAG(6) 6 CSIDE(6)»9 CLIFT(6)»s CROLL(6)» CPICH(6) » 

2? CYAW(6) » CLENTH(6) sAREA(6) 

UIMENSION CSFCO(6)+s CDFCO(6) + CYMCO(6)» DRAGC(6)5 WDYAWA(6) 

DIMENSION AA(696) » 8B (691) 

DIMENSION AAA(404) 9 8BB(491) 


DIMENSION BKFZ(14) 

COMMON/C10/CB4 9CB79C38105CB134CB169CB3sCB69CK95CB125CB15 
COMMON/C20/CMST1 eo CMST2sCMST39CMD1] oCMD2 

COMMON /C30/PHI1 »sPHI29PHI3e9PHI49PHI59PHI6 
COMMON/C40/CMT 9 CMAZ1 9 CMAZ2 9CMAZ39CMAZ49CMAZ59CMAZ6 
COMMON/C50/CB 1] 6CB29C859CB89CB1l1leCB145C317 
COMMON/C60/CD1 9CD39CD59CD79CD9—9CD115CD13 
COMMON/CTO/SFAKA] o9FAX2o9FAX3S oF AX4 oF AXSoFAXG 
COMMON/SCBO/SFAY 1 oFAY2oFAY3S0FAY4 9FAYSoFAYO 

COMMON /C90/DPHI11] »DPHI2»DPHI 39DPHI4sDPHIS5SsDPHI6 
CUMMON/SCI2O/SVA] oVXCoVA3ZoVA4 go VX5S oo VKXGOVY1l oO VY20oVY39VY49VYS5S—9VY6 
COMMON/C130/DVX1 eDVX29DVX3eDVX4 oDVX5 9 DVX69DVY] 9DVY29DVY39DVY4So 
DOVYSeDVY6 

COMMON/C160/CD20CD049CV6sCD8sCD109CD129CD14 
COMMON/CI1T0/F 2 

COMMON /C200/A0R 

COMMON/C3U00/ AAA 5 BBB 
COMMON/C319/AA9BB 
COMMON /C320/1SW39ISw4 
COMMON /C330/1Sw65ISw/7 

COMMON/C350/1ISW9 » ITSweg 

COMMON/C351/BKFZ 

COMMON /C3B80/NPTS11 
COMMON/C420/THETA » PSIR » ISwle2 
COMMON/C520/CI2ZZ1 9CIZZ2 

VEHICLE PARAMETERS 


TReCESWGy ol Te LOE “GOn soma 

READ (592) CWT sCWST1lsCWDl1 »CWST2,CwD2eCwST3 

READ (592) CIZZ1leCIZZe@sCIZ2Z3sCIZ724sCIZZ59CIZZ6 
READ (502) CBl»sCB29CB39CB49CB59CB69eCB75CB8 

READ (592) CBA99CK109CB811eCB12sCB8139CB8149CB15sCB16 
READ(592) CR1I7 

READ (502) CH] »CH29CH39CH49CHS9CH69CH7 eo CHS 
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<> > a z —— z x 


ges 
5 31% 
54% 
| 54 3 


S7# 
Sue 
Got 
Gi} st 
1 o- i 2: 
| 2% 
| 63% 
| 64% 
| 65% 
Boe 
| 67% 
| 62% 
| &o% 
TQ% 
7) * 
| Tet 
7 4% 
To 
75% 
16% 
77T# 
TRH 
19% 
Ar) te 
8) se 
a Wedhsd 
BAe 
Q&st 
B+ % 
66+ 
87% 
BBt 
Roe 
9u* 
Q)% 
Ge% 
93% 
Qast 
95% 
96% 
O/* 
Ont 
99% 
100* 
101# 
lo2* 
103* 
104% 
105% 
106*# 
107% 
108% 


| 36% 


4] 


eve 


203 
1100 


— 


42 


READ (See) 
READ (592) 
READ (592) 
MEAD (59?) 
READ (S592) 
READ (502) 
CONT TNUFE 
IF (ISW7 
NU 202 Js 
NAS) Gk (8 62 
ViAveC]) =O 
READ (5020 
IF (NEND 


FORMAT (AF 
CONTINUE 
READ (593) 
READ (593) 
(6) 

READ (503) 
FEAD (593) 
RELI) (50e3) 
READ (503) 
READ (593) 


Pl rs ee 


eee: 1) 
READ (590203) 
KEAD (59203) (VAY(1) 9 


CH99CH109CH11 6CH129CH139CH14eCH159CH16 
CH179CH189CH199CH20 9 CH21 »9CH229CH239CH24 
CH259CH26 

CD1»CD29CD039CD4sCU5sCD69CD79CD8 
CO9eCD10eCD116eCD120CD139CD14 

SPROC] »sSPRGOC2 oe SPRGC3eSPRGC4—9SPRGC5sSPRGC60SPRGC7 


GO TO 42 
loNPTS1) 


060 


oe () 

1) NSTART»NEND 

GO TO 1100 

(VAX(I)« L=E=NSTART»NEND) 
1=NSTART »NEND) 
10.0) 


AREA(1) 9 AREA(2) 9 AREA(3)s AREA(4)» AREA(S) sAREA (6) 
CLENTH(1) eCLENTH(2) sCLENTH(3) eCLENTH(4) sCLENTH(5) sCLENTH 


CORAG (1) sCURAG (2) sCDRAG (3) sCDRAG (4) sCDRAG (5) sCORAG (6) 
CSIDE (1) eCSIDE (2) sCSIDE (3) sCSIDE (4) sCSIDE (5) sCSIDE (6) 
CLERIC) eo CLItt(2) sCLIF T.03) sCLIFT(4) s CLIFT (5) sCLIFT (6) 
CROLL (1) sCROLL (2) eCROLL (3) sCROLL (4) sCROLL (5) »CROLL (4) 
CPICH(1) sCRPICH(2) eCPICH(3) sCPICH(4) sCPICH(5) eCPICH(6) 


READ (503) CYAW(1) oCYAw(2) sCYAW(3) oCYAW(4) oCYAW(5) »CYAwW(6) 

READ (593) DRAGC (1) eDRAGC (2) sDRAGC (3) sDRAGC (4) »DRAGC (5) sDRAGC (6) 
CONTINUE 

GMa. Cw 32 02 

GMS: =. CWST1/ 32 «2 

EMD =" EWOL 7 32-2 

GuDey = CWD2, 7 Slee 

CMST2 = CWST2/322.2 

CMST3 = CWST3/32e02 


C WRITE VEHICLE PARAMETERS 
WRITE (69100) 


100 


Ned 
123 


lee 


126 
124 


127 

128 
] 

125 


101 
102 


1 
2 


FORMAT(STX ¢ 


IF (]Sw3 
GOatToO, Lee 


LTBHVEHICLE PARAMETERS) 


ok Te 1 efNDe [Sw4elk Tel) GO TO,121 


WRITF (66123) 


FORMAT(/S/9 2IX5 46H*HHH% THIS MODEL IS WITH ONE SEMITRAILER ###H#) 
GOR TO 125 

He USWS: ole tecd.cANDe I[5W4, 2£Q- 1) G0 TO 126 

GOO. Vet 


wRITE (60124) 


FORMAT (/S/ 
S00 kes 


92TXo4 THE HHHH THIS MODEL IS WITH TWO SEMITRAILERS #####) 


WRITE (69128) 


FORMAT (S7Z 
) 
CONT INUF 


s27TXs4GHRHHHe THIS MODEL IS WITH THREE SEMITRAILERS ### 4% 


WHITE (66101) 


FURMAT(/S/ 


e5XePVHWEIGHTS AND INERTIAS) 


WRITE (66102) Cwl oCWST1sCWOl sCwST2sCwD2sCWST3 


FORMAT( 7 


= oF LOe2s40X98HCWST2 = 


9F100c) 


9Fl06ee2s/928Xe8HCWD 1 
oF 1062940X98HCWST3 = 


9F10e2s40X98HCWST] = 
oFl10e2e9/928XeBHCWD2 = 


928X eo B8HCWT = 


75 


LOO WRITE (Oe 1U3)CIZZ1 9Ci2lesCI2Z2Z3sCI2ZZ4e9CI2Z25eCI 226 


s i 
ee oe Ato Cae Raa cn eee = oFl0e2s40Xe8HCIZZ2 = sF1l106es/928Xs 
112% tots = de eea ORI = 9F10029/928Xs 
é = Oe 4 = 
113 et ert : 2940Xs8HCIZZ6 = oF 1062) 
ee 104 FORMAT (//e5Xe1lBHVEHICLE DIMENSIONS) 
x WRITE (65105) CB] sCB29Cb39CK4eCB5_9CB659CH7/ Ct SE 
— tb . : : j= fe} I 
ee 1CB136CH14+CA159C81659CB17 cee ee Oe Cai tha mamma 
ee pee ete PAU = 9F10e2912Xs7HCB2 = oF 1l0e2912X97HCB3 = 6 | 
oe ies eee = FlU029/914X97HCBS = 9Fl0c2912X97THCB6 = oF 1002) 
1208 Se oaiiesii Ss 2h Gee leks (HCAS = oF 10.297 a Xs Ce es | 
ere RAS PEG kee ae een eae sF10e2s1l2rXe7HCBle = sF1002s/o14Xom 
ec ye ISO ’ = 9F1l00e2912X%97H = 1 
1228 Re ay aire Glce dace 9 9 7HCB15 s9FlUeeslersTHCB1 6p 
%s WRITE (66106) CH] »CH2sCH3»CH49CHSeCH6eCH/ oC | 
a CH& »CH9 5 
ee . 1CH136CH14+CH15¢CH1O«CHI7¢CHIB9CHI9sCH20 ioe gee se 
ee 106 FORMAT (/o14X%9/HCHL = 9Fi0e2s12xx7THCH2 = 9F1002912xs 
oie : THCH3 = sFl0e2@91l2xe7HCH4 = oF 1002s 
eye 3 JeL4XolHCHS = sF10e2s12xXsTHCHG = sF10eesleXs 
oo i (HCHT = 9F L0ees1l2xs7HCHB = ef 1062s 
130% 5 Aap noses el ah = 9F10e2sl2xe7THCH1O = oF10eeslexrs 
aie THCH1 = 9FlVecslexeTHCHle = sFlUe2s 
132% ; ibe BSNS = 9F10ee2ele2xe/HCH14 = oF l0ceeslexs 
on i - THCH1S = sFl0eeslexesTHCHl6 = sFl0c2s 
nee i S914Xe97HCH17 = oF 100eeslexs7THCHI1B = sFl0ceesleXs 
135% : THCH1SD = oF lUe2ole2xes7HCH20 = oF l0eZ2) 
136% WRITE (69115) CH21 9CH229CH239CH245CH25 9CH26 
fees Ty} ris 14X»9 7HCHe] = 9F1l0e2@slexs7THCH2e = sFl0eesleXxs 
ae ; THCH23 = sF1l0ce291l2X97HCH24 = oF l0eces 
ue ECR 2 Ae cath pose mle nat nonce = »9Fl10.2) 
4 9 r) 5 [ - : 2 
140% 1CD136CD14 9CU39CD4 9CD5eCD6eCD7sCD8sCV9sCD10yCD11 CD12 
4G] % Ni 
ice LO7 FORMAT(/914Xs7HCD1 = sFl0ees1lexs7THCDl = oF l0el2eleXs 
14 3% 3 (CBS = 9F100¢2912xs7HCD4 = 9sFl0eces 
vee g /914XsTHCOS = oF10e2912x%97HCD6 = sF1002912Xs 
race ; THCD7 == oFl0e2sl2xs7THCOB = oF 1l0e2s 
es a /914X97HCD9 = oF lL0e2el2xXes7HCD1O = oF L0e2sl2Xo 
ver : ce eet = 9Fl0e2slexs7HCDl2 = sFl0e2s 
; id 9 = 9FlUc2912x HC = 
hee WRITE (69108) ee enue oo 
te j 
oe 108 Wecee Ho Meteo ade Wepre SUSPENSION SPRING CONSTANTS ) 
661099) SPRGC1 »SPRGC2esSPRGC3sSPRGC4sSPRGC59SPR 
Kae GC6 
cen 109 FOR AT(/914X99HSPRGC] = oF l0e2910X99HSPRGC2 = OF one 
153% 2 /914x pieenees gy aU OG sO Sige eS OV o@o 
9 ’ = oF l0e2sl0Xs9HSPRGCH = oF 10. 
ee 3 QHSPRGCT = »F10.2) 9F10¢2910X9 
a WRITE (6e110)NSTART eNEND 
6 110 FORMAT (1H1955X922HAERUDYNAMIC INPUT ¢ ) 
i DATAs// 95x 
tae 114X9 THNSTART=9110912Xs7HNEND = 9110) oe ee iia 2c eas r 
ec Sac e Meee nee eona AREA(2)» AREA(3)» AREA(4) »AREA(S) » AREA(6) 9! 
ae a Saat H(1)° CLENTH(e2) » CLENTH(3)« CLENTH(4) eCLENTH(5) » CLENTH(6) | 
164] MAT (/e14X97HA(1) = oF lOe2ol2xoTHA(2) = sFl0se2eitenes 
ee 1 7THA(3) = 9F10e2012X97HA(4) = sF1l002s 
ee J914Xe9THA(S) = oF1LVe2o12X9THA(6) = oF lUees 
ae ; J914Xe912HCLENTH(1) = sFl0e2@s7Xel@HCLENTH(2) = oFlUcees 7X 
ane ‘ 12HCLENTH(3) = 9F106297Xs12HCLENTH(4) = 9F1002 
é J914Xel2HCLENTH(5) = oFlUee2s7Xsl2HCLENTH(6) = oF 1002) 
76 


16% 
147% 


68% 
ov 


WY 7 
a 


pope 


Wl 71 * 
L?levw 


Wael 


[i tas 


11 76% 


177s 


Mi 
HM de 


Pegs 
eal yire 


|y3L% 
i1l&2% 
}/163% 


184% 
1B5* 


| 186 


187% 
188% 
189% 
190% 
191% 


| 192% 
| 19 3% 


194% 


| 1a5s 


Lon# 
197% 
]9H# 


| }QQ% 
| 200* 


201 * 
ener 
en 3% 


| 204% 
| 205% 


rad ona 
cor 
20K% 


| elo 
| 2la*# 


2S 
Pala * 


2) 3* 


| 214% 
—215# 


216% 
el7* 


| 21k 


219% 
eee 
eel* 
2ec% 


wWKITE (66112) CDRAG(1) »sCDRAG(2) sCDRAG(3) sCDRAG(4) 5 CDRAG(5) 9» 
POUR AGS), » CSIDE (CL) .»» CSIDE (2) » CSEDECS): ¢ CSIDEC4)*->5 CSIDE(S) “s 
@2CSIVE (6) 
Ll2 FORMAT (/914Xe11HCDRAG(1) = oF1l0.e2@98XellHCDRAG(2) = oFl0e298Xo 
1 LIHCDRAG(S) =. oF10,.2 08% sVIHCDRAG (4) [= 4sF 10.25 
2 /Jol4XelLHCDRAG(5) = oF1l0ee@s8XellHCDRAG(6) = oFl0e2s 
3 Jol4XolLHCSIDE (1) = gFIOe2@eB8XolIHCSIDE (2) = sFl0eesBXs 
4 LIHCSIDE (3) = oFlOse@sB8XolLHCSIDE (4) = oF 1062s 
5 /o9l4xXollLHCSIDE (5) = oF 10.208Xs11IHCSIDE(6) = oF1l0e2) 


WRITE G6 9 i123) GL EFLTO1).9 CL LF TC2) sClWeLET C2) COl ET (4) CLIFT (CS) eCLIFy (69 
Dye OEE Gi iGROGE Gey CROLL aie CROLL CROCE TS )CROLE(G) 


113 FORMAT (/e¢14Xe1LHCLIFT (1) 
LIHWCLIET (3) 
/ol4XolLHCLIFT (5) 
/o9l4Xo11HCRULL (1) 
JIHCROLL (3) 
Jeol4&xellHCROLL (5) 


NPWn- 


oF lO e2oBXelLHCLIFT (2) 
s9FLO-f?oBXeLIHCIIFT (4) 
oFLOe2oBXelINCLIFT (6) 
oF 10e298XellLHCROLL (2) 
oF 1lO0ecs8XeLIHCROLL (4) 
oF 106298XelLHCROLL (6) 


o9Fl0elcabXe 
9Fl0e2s 
oF 10.29 
9FlUcesBXo 
oF 1l0e2s 
oF l0ee) 


i 


WRITE (64 114) CPICH(1) sCPICH(2) sCPICH(3) sCPICH(4) sCPICH(5) sCPICH(6)» 
1CYAwW(1) sCYAW(2) sCYAW(3) oCYAW(4) sCYAW(5) »CYAw(6) 


114 FORMAT (/ 
LIHCPICH(3) 


wrue 


Jol4XeolOHCYAuw (1) 
LOHCY Aw (3) 

Jol4XelOHCYAwW (5) 
DO 43.1. = bel4 
FZSTPH(T) = 0e0 
FZ(1) = 020 
aielne eam (2 1) 
FZPH(1) 
FZST(I) 
DG 44 I 
GShEOCL) 
GOE COW) 
CYymMCO (1) 
DRAGC (1) 
WOYAWA(T) = 
VRELX(1) =0 
VRELY(I) = 
VREL (I) = 0 
PSI(I) = 
Q(I) = 0420 
FSIDE(I) = 0 
FDORAG(I) = 0 
FLIFT(I) = 0 
CMROLL (1) 
CMPICH(I) 
CMYAw (TJ) 
PEeCUSWl2) el Tie -1)) 
EwWho= Cw # COS.CTHETA) 
CwST] 
CwST2 
CwST3 
CwOl= 
CwO2= 


T+ 


43 


nou wou 
i) 
© 
Cc 


mou i oot 
oO 
e 
Cc 


44 


ueou on 


CwO1l* COS(THETA) 
CwDe* COS(THETA) 


914X911 HCPICH(1) 


7 g1l4XelLLHCPICH (5) 


CwSTl #* COS(THETA) 
CwST2 #* COS(THETA) 
CwST3 * COS(THETA) 
# CUS(PSIR) 
* COS(PSIR) 


S o9FlOeeo8XolLHCPICH(2) 


= 9F10.298Xe1l1lHCPICH(4) 


= 9Fl0¢2s3X91l1lHCPICH(6) 


oF1LOe2o9XeolOHCYAw(e) 
9FlOe2o9XolOHCYAw (4) 
9F10e209Xo1lOHCYAW (6) 


GO, TO..210 
# COS(PSIR) 


* COS(PSTR) 
* COS(PSIR) 
+ <COS(PSIR) 


C TIRE VERTICAL LOAD DISTRIBUTION - STATIC LOAD. 


V7 


= oF lOelohXo 
= o9Fl0ececs 

= 9Fl0e29 
o9Fl10eeeIKs 

9F 100629 

oF l0e2e//) 


210 


EZS 163) c= Olea # ERG. *=CWSisi 77 (CBG EB 19) 

FASC ie =— FZ SiG S}) 

FZST (11) = =0.5 # (CWO2 # CBl13 + (CWST3 * CBI7e* (CBlasCBiS lara 
VEBLS6+CB U7) 47 (CBTS4CB14) 

FZ SOW) R= FZ ly) 

FZST (9) <= $085 % (CWSTe # CBl0 «+ (CWO2 + CBlo * (CBlO¢CBIZ Ii 


}(CB13+CH14)) + (CWST3 # CB17 * (CB14=CBI5) * (CBl10+CBl2) 7 aCKeBi és 
2CB7)s = 2(EBY Seals) 79 CEB 10+ CBl)) 

FASile (GO) =F ikrZSilei9)) 

FZST(7) = =02.5 # (CwD)'* C87 + (CWST2 * CBll * (CBI TCBS) 7 eatCB o's 
1Cb1l1)) + (CwDe * CB14 * (CBl1=-CB12) # (C87+CB9). 7 (CCBIO+CBT)) + 
2(C813%CB14).)) * (EWSTS) * CB17 + (CB14=CB81'S) * "(CBT CeiAnieS 
3(CB7+CB9):/. ((CB164+CBI7) + -(CB13+CB14) * (CB10+CBl 1) piAtesi7,< CBs) 

FZ Si UB) = Z SMa Ge) 

FZS7T(5) = -0.5 * (CWST1 # CB4 + (CWOl * CBS * (CB4SCBG e7ANGeBiT/ CBs 
V)) + (GwST2 3 CRI “EC88—EB9) + (ECB4G+CB6), 7 (CCRT Cuan me ance Ole 
2Csl1))2> +. (ewDe + CAL 4° (CRLI-CB1e) -* “(CBB —C69)) tee aa Caiop a7 
3((CB74+CB8)) * (CBlO*+CB11) + (CBI34CB14I0) © (CWSI Se CBiieete UC EG = 
4CB15) -4#* (CBl1=-Cal2) *. (CBB=CB9) * (CB4+CB6) 7 (CBIR CSIS iam 
SCBLO+CHLIV4 & (CBL3+C814). * (CBTE+CBl TAN 7 (Cb4eCs5y) 

EZ Sl (6) SS EAST) 

FZS1(3)).= <0%e5 * (CwT * CBl + \(CWST) * CBS: + (CB1 Cas) Z(eBa cB) 
1+).(CwO)] * CBB + (CBS5<Ce6) *(CB14+CB3) “7 (0° C844 CBS) (GB aCBB) re 
e(CwSt2 * Cell *, (CB8=CBO) «+ (CBS5=CB6))** (CB1+CBs)) a7 re Bar CBs) is 
3(CB7+CBS) # (CH10*CBI11))) ¢ “(CWO2)* CBG * (CBT =CBl2)e essa CB9) 
4% (CB5-CB6) * (CB1*C383) 7 ((CB4+CBS) * (CB7 CBB) S(CBiOS eBay ss 
5(CB13+CA14))) + (CWSTS * CB17 * (CBS = C815) Sea(Ceni= Cen) nas 
6(Cb8-Cb9) * (CB5—Ch6) * (CB) +CB3) 4 ( (CB44+CBS)e = (CBC B Bim sea Oo 
7+#CBl1) * (CH1S+4CA14) = (CBI16+CB17) 10>) 7 WeEBleCua) 

FZST (4) BZSiG3) 

FeZS1nC>) “Neo * (Cwl * CB2 + (CWST] * CaS + (CS2—CBS) ANCE G+eRS))) 
14 (CwDO] # CRB * (CBS5-C86) *(CB2-CB3) / ((CB4*CBS)) Se ((GaraG8s)))))) a+ 
2(CwSte # CB1l1] * (CB8=-CB9) + (CB5-C86) # (CB2-CB3)) 7 (CBs aces) 3% 
3(CB87+CB8) # (CB81lc+CB11))) + (CwO2 * CBl4 *(CBll=$CBIAy ea eBB=Cs9)) 
4% (CB5-CB6é) * (CBe2-Csb3) / ((CB4+CB5) «+ (CB7+CBS) ss e(CRnOeeein ne 
5(Ch13+*CQ14))) + (CwSl3 * CR17 * (CB14 — €Bl5) ©* (CBI Cali2)m 
6(CH8=-CB9) * (CBS-CB6) * (CB2=-CB3) 7 ((CB4+CB5) > SCE GeE Be (CB 0 
(#+CBI)) # (CRIS*CBR14) * (CBY6+CBT7))))) 7 (C8) +CB2)) 

EZSTt2)) = bZS Gl) 

WRITE (6930) FZST(1) oF 25ST (2) o9FZST(3) 9 FZST (4) sFZST (5) oF ZST (6) 9 
JFZST (7) oF 2ST (5) oF Z57 (9) sFZS7T(10) oF ZST (11) SF ZST (VSN) ZSGsis 
2F Zo0-C14) 


“ou 


30 FORMAT ( 24H STATIC LOAD ON WHEEL (1)7/9H (1) = (RiveiriSriee(2) = 


1999 


1006 
C AERODYNAMIC FORCES AND MOMENTS 
C RELOTIVE. VELOCITIES OR (ATRIS AND SWAW ANGEES = 


LF7ele9H 1.03) = Flels9H C14) = FeleSH L(5) = ErlksSHe de(6)) = 
CFT eleGH: LC) = Flele9H LB) = FTelSZ9H 2L¢9)) =e Eateculte 

310H L(10). = F7els9H L(11) = F7ee9H Lila) = Fe) sOHminGis peer ieee 
49H L614) = Fit elZZ) 

0G 1999 T = 1914 

FeZeGein): oss (FZST(I) + FZPH(I) + FZRL(I)) 

Kou= Rl 

RETURN 

CONT J NUE 


KOW = 0.002378 
VKELX(1) VAX(K) + VAL 
VRELX (2) VAA(K) + VX2e 


nou 


78 


ae VRELX(3) = VAX(K) + VXA3 
Se VREEX (4) = VAX(K) + VAG 
area VREEA(S) = VAX(K) + VXS 
San VRELX(O) = VAX(K) + VX6 
Se VRELY (1) = VAY(K) + VY) 
ae, VRELY (2) = VAY(K) * VY2@ 
ee VRELY (3) = VAY(K) + VY3 
aa VRELY (4) = WAY(K) + VY4 
es VRELY (5) = EM ANCIK). BUOYS 
ae VRELY (6) = VAY(K) + VYO6 
cols oe 
29e% IF (ISwW3 el.T 1 
Shee ete elle eANDe ITSW4 oEQe 1) Ic = 4 
Boe : a ay Aylteed ars 1 eANDe LSw4 ele Tke 1) TC = 2 
Cob S = = 
ies 20 ee : SURT ( VRELX (I) ##2 + VRELY(I) ##2 ) 
A Mee eet y iS ae ( VRELY (1) 7 VWVRELX(JT) ) 
Se CRAs a Fy Be PSC) cast See 7, 
Bo fe cas =(PHI2 = PSil(2)) HST eet 
aan, ie il eANDs ISw4 eLTe 1) GO TO 90 
30) % wOYAWA (4) Sate z en Nee 
ne ue as Seda. - PSI (4)) * S7.27 
Sao eer Swi GlbT « we 600 TO 90 
Se Rael ien Sue bd Potts) * 57.27 
ee, Bde ee Sins he = PSl(6)) * 57.27 
306% CSEGOCK) e oto eer. 
ser cSresit) = Gowers oececeas 
j = C 3 5) ) + 

anne cy#eo (1) Mea. cc an tay ABS (WDYAWA (TI) ) 
ee ape oe 5 CSFCOCI) * AREA(I) *#0(T) 
ae aie 3 Le ses COR COMIN AREA CT )ere-Q@ (1) 
ae ay a : = CEIRT CL): * AREA CEH) * OCT) 
ae A seea ers P al roe # AREA (T) %* Q(I) * CLENTH(I) 
314% evant he CPICH(I) * AREACI) # Q(1) * CLENTH(I) 
al ru Ne =CYMCO(I) * AREAC(TI) * Q(I) * CLENTH(1) 
a Ba i eee a z Cus (PHI1) - FSIDE(1) #* SIN (PHI]) 
ee FANS © Eowasts)  costenls) = FEIDELS)  Stvi@nts 
a 7 fe - 3) * SIN(PHI3) 
321+ ee 2 EDRHGIS) + COS(PHES), & FSIDEta). * SIN(PHIS) 
ay : | ; - FSIDE(S5) * SIN(PHIS) 
aoe en 2 eae . COS(PHI6) = FSIDE(6) #* SIN(PHI6) 
Sa Bale 5 ae 61) : SIN(PHI1) + FSIDE(1) #* COS(PHI1) 
Se Bee 5 Sheen ¥ SIN(PHI2) + FSIDE(2) * COS(PHI2) 
aa ita : Sc Ne SIN(PHI3) + FSIDE(3) # COS(PHI3) 
aa Aas = Bee : SIN(PHI4) + FSIDE(4) * COS(PHI4) 
ae Fave = euugtoy ¢ $iNoute) ¢ Flloets: » custente 
3209 ra) ee SIDE(6) * COS(PHI6) 

; RAZ =e lee G2) 
Se FAZ3 = FLIFT(3) 
330% FAZ4 = FLIFT(4) 
ae FAZS = FLIFT (5S) 
ee Say = FLIFT(6) 
are as 7 EMROEL CI) o COS (PHI1) = CMPICH(1) #* SIN(PHI1) 

2 = CMROLL (2) * COS(PHI2) -— CMPICH(2) # SIN(PHI2) 


79 


337% CMAX3 = CMROLL (3) * COS(PHI3) = CMPICR(3) #*® SIN(PHI3) 
338% CMAXG = CMROLL (4) #* COS(PHI4) |= CMPICH(4) * SIN (PHI4) 
334% CMAXS = CMROLL (5) * COS(PHIS) = CMPICH(5) #* SIN(PHIS) 
34% CMAKAG = CMROLL (6) * COS(PHI6) = CMPICH(6) # SIN(PHI6) 
34% CMAY) = CMROLL(1) * SIN(PHI1) + CMPICH(1) * COS(PHI1) 
347% CMAY2 = CMROLL (2) * SIN(PHI2) + CMPICH(2) #* COS(PHI2) 
34 4% CMAY3 = CMROLL (3)% SIN(PHI3) + CMPJCH(3) * COS(PHI3) 
344% CMAY4 = CMROLL (4) * SIN(PHIG) +# CMPICH(4) #* COS(PHI4) 
B4'5% CMAY5 = CMROLL (5) * SIN(PHIS) + CMPICH(5) * COS(PHI5) 
JS4H% CMAY6 = CMROLL (6) #* SIN(PHI6) + CMPICH(6) #* COS(PHI6) 
347%: CMAZ1 = CMYAW(]) 

34} 3 CMAZ2 = CMYAw(2) 

A4 Wit CMAZ3 = CNYAw(3) 

350% CMAZ4 = CMYaw(4) 

351% CMA/Z5 = ChMYAW (5) 

352¢% CMA76 = CMYAW (6) 

35385 C#eETSWL2=0 » MANEUVER ON HORIZONTAL PLANE 

354% C## eT Ow) c=) 9» UPHILL MOTION 

355% C##HT SWI 2=5 «© DUWNHILL MOTION 

35% Te CPSW12 kT. ot) GO" PO r220 

Bier hes CUSWY 2. eGilke VW) a1GOr Oreo 

35HR% FAX] = FAX] = (CMT/32e@e2) * SIN( THETA) 

356% FAXe = FAX2 = (CMSTI/3ee2) * SIN( THETA) 

360% FAX3 = FAKS =(CMD1/3202) * SIN( THETA) 

36] % FAX4 = FAX4 = (CMST2/32.2) * SIN(THETA) 

367% FAXS = FAX5S =(CMD2/32e2) * SIN( THETA) 

36 3% FAX6 = FAX6 = (CMST3/32e2) * SIN(THETA) 

364% FAV YT 2=7RAVE cH a(CMIA3 Cec) * COS(THETA) “= SINICPSTR)) 

365% FAY@ = FAY2 = (CMST1/32.2) * COS(THETA) * SIN(PSIR) ; 
366% FAVS) = FAYS “=COMDE/S202) = COS(UHETA) 2 SENWeSiR) 

367% FAY4 = FAYG = (ECMSTie2/73es2) = COS( THETA): * SENCRS TR) 
36H FAYS = FAYS #=(CMD2/32 02) * COS(THETA) * SIN(PSIR) 

369% FAY6 = FAY6 = (CMST3/32.2) * COS(THETA) * SIN(PSIR) 
370% GO TO 270 

371] * 240 FAX] = FAK] + (CMT/32@0ee) * SIN( THETA) 

372% FAX? = FAAKA2 + (CMST1/3202) * SIN( THETA) 

37 3% FAX3 = FAX3 #(CMD1/320e2) * SIN( THETA) 

374% FAX4 = FAX4 * (CMST2/32.2) * SIN(THETA) 

375% FAXS = FAXS +(CMD2/320e2) * SIN( THETA) 

376% FAX6 = FAX6 * (CMST3/32.2) #* SIN(THETA) 

BG WY OT fas PAY] = FAY COMT S32: 62)° + COS(THETA) * SINCPSTR) 

378% FAY) = FAY ent CEMST1 S202) COSINE AY = “SENCPSiiR) 
379% FAY3 = FAY3 *#(CMD1/3e0e2) * COS(THETA) * SIN(PSIR) 

3B 0s FAY4 = FAY4 * (CMST2/32ee2) * COS(THETA) * SIN(PSTIR) 
38) * FAYS = FAYS +(CMD2/320e2) * COS(THETA) * SIN(PSIR) 

382% FAY6 = FAY6 + (CMST3/32e2) * COS(THETA) * SIN(PSIR) 
383% C TIRE VERTICAL LOAU DISTRIBUTION = PITCH EFFECT. 

384% eeu FZPH(13) =e ((CMAY6 * COS(PHI6) = CMAKX6 * SIN(PHI6)) + CMST3 # 
385% 1(DVX6 * COS(PHI6) + DVY6 #* SIN(PHI6)) * CHI19 = (FAX6 # COS(PHI6) + 
386% OFAY6 * SIN(PHI6)) * CH19 ) 7 (0.5 * (CB16+CB17)) 

387% 3 ¢ (FAZ6 * CB16/ (200 * (CB16+*CB17))) 

388*# FZPH(14) = FZPH(13) 

389% FZ21P = = ((CMAY6 * COS(PHI6) = CMAX6 #* SIN(PHI6)) + CMST3 #& 
390) % 1 (DvVX6 #* COS(PHI6) + DVY6 * SIN(PHI6)) #* CH26 = (FAX6 * COS(PHI6) + 
39) * CFAY6 * SIN(PHI6)) #* CH26 ) / (CB16+CB17) 

392% 3 - (FAZ2Z6 * CBI1T/ (CKB16+CB17)) 

393% FZPH(11)= = ((CMAYS * COS(PHI5) = CMAX5 * SIN(PHI5)) + CMD2# 
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394% 
395% 
396% 


|397%# 
|39R% 


399% 
4 () () 


14013 


402% 


141) 3% 


404% 


140535 


406% 
aor 


[406% 


G1 4% 


1G 10 % 


41]* 
41e% 


|413% 
414% 
(415% 


416% 
417% 


(418% 
419% 


420+ 
42) % 
422% 


| 423% 


4P4a% 


| 425% 
| 426% 
| 427* 


42ne 
420% 


| 430% 


43)% 
432% 
433% 


| 434% 


435% 
436% 


| 437% 


43K % 
439% 
441) 4 


441% 
442% 


443% 


444% 


445% 
446% 
447 
44Re 


449% 


450% 


1}(OVX5 * CUS(PHI5) + 
CFAYS * SIN(PHI5)) # 


Sti rCPAZS. 4h) CBLS/2 (es 
BZPH()2).05FZPACL1) 
BZ17P c= wen ( GEMNYS ..\% 


J(DVXS * COS(PHI5) + 
CFAYS & SIN(PHI5)) # 


3 ~ (FAZS * CB1L4/ 
FZPH(9) = = 
J(DVX4 * CUS (PHI4) +¢ 


CFAY4 * SIN(PHIG)) # 


Ss) *2(PAZ4 * CBLO/. (2. 
FZPH(10) = FZPH(9) 
eZ 3P i= = 


1 (OVX4 # COS(PHI4) + 


CFAYS * SIN(PHI4)) * 
3 7 (FAZ4 * CBIlI/ 
FZPH(7) = = 


ICDIV XS) A) “COS (PAIS): + 
2FAY3 * SIN(PHI3)) * 


se AOHAZSe* (CBT (/7\ (eis 
FZPH(8) = FZPH(7) 
BAP y =v CCCMAY 3 


PEW VMS: He COSCPHI3): & 
PFAY3 * SIN(PHI3)) # 
Ses CRAZ ae «CBB 7 yk 


((CMAY4 * COS(PHI4) 


((CMAYS * COS(PHI4) 


DV YS. ¢SENGPADS):) 
CH15+ FZe21P *# 
0 # 


# (CHES —— 20RAXS:. 4, COS CPHITS)\ + 
(CB13+CB15)) 7 (065 #(CB13+CB14) 
(CB13+CB814))) 


COS(PHI5) = CMAK5 # SIN(PHIS)) + CMD2% 
DVYS #* STN(PHI5)) # CH2S5 = (FAXS * COS(PHI5) + 
CHeS5 = F721P * (CB14=CB15))/ (CB13+CB14) 


(CKR134+C414) ) 


- CMAX4 * SIN(PHI4)) * CMST2 * 
DVY4 * SIN(PHI4)) # CH1l2 = (FAX4 # COS(PHI4) + 
CHlé+ F717P * (CB10*CB12)).7 (0.5%(CB10+CB11) 
O * (CKB104CB1l1))) 


= CMAX4 #* SIN(PHI4)) * CMST?2 # 
DVY4 * SIN(PHI4)) * CHPS = (FAX4 * COS(PHI4) + 
CHe4 + F7ZL7P * (CB1l2-CB11))/(CB10+CB11) 


(CBLO*CBLT)) 
((CMAY3 # COS(PHI3) 


= CMAX3 #* SIN(PHI3)) + CMD]*# 
DVY¥3 * SIN(PHIS)) * CHB == (FAX3 * COS(PHI3)+ 
CH8 + FZ213P * (CB7*CB9)) 4 (005 * (CB7+C88) ) 
0 * (CB7.+ CB8))) 


COS(PHI3) |= CMAX3 * SIN(PHI3)) + CMDI]* 
OVY3 * SIN(PHI3)) * CH23 = (FAX3 * COS(PHI3) + 
CH23 = F713P * (CBB=-CB9 )) / (CR7+CBB) 

CR7 + CB8)) 


RZPHS)) = = C((CMAY2 * COS(PHI2) = CMAX2:. * SIN(CPHI2)) + CMST] & 
}(DVX2 #* CUS(PHI2) + DVY2 * SIN(PHI2)) * CHS = (FAX2@ #* COS(PHI2) 
P+F AY? #* SIN(PHI2)) * CHS + FZ9 P * (CB4+CB6 )) 4 (005 * (CB4e 
EES) 

4 + (FAZ?P * CB4 / (eeu * (CB4 + CB5))) 

FZPH(6) = F7PH(5) 

FZ SP = = ((CMAY2 * COS(PHI2) = CMAX? * SIN(PHI2)) + CMST1 # (DVX2 
1* COS(PHI2) + DVY2 * SIN(PHI2)) * CHee= (FAXe * COS(PHI2) + FAYe 
e* SIN(PHI2)) * CH22 + FZ9 P * (CB6 =CB5)) 7% (CB4+CB5) 

SVa\ChAZe * CBS. 7. ( CB4 + CB5)) 
FZPH(3) = = ((CMAY] #* COS(PHI1) = CMAX] # SIN(PHI1)) + CMT # 


1(DVX)] * CUS(PHI]) + 
PFAY] * SIN(PHI1)) * 


Sut wRAZL = -CBl 7) Ce. 
FZPH(4) = FZPH(3) 
FZPH(]) = 


1(DvxX) * COS(PHI1) + 
CFAY]L * SIN(PHI])) * 
Sos ORAL) 1 aGBe 7 ules 
FZPH(2) = FZPH(1) 
PO F=) L4: 
IF (J Sw3 
IF (ISW3 
OOM, V1 e= 
FZSTPH(I) = 
IF (CF ZSTPH(1) 
WRITE (6512) I 


eANDe 
eANDe 


FES eae | 
ellie onl 
1610 
FZST(T) 
oT ein Oe 


((CMAY1 #* COS(PHI1]) = 


DVY1 * SIN(PHI1)) # CH2l = (FAX] #* COS(PHI1)+ 
CH21; °F ZS: (P* (CBLSCBS)3) 7% (0S * (CB1+CBe)) 
0 ee ntCeil <e5CB2),)") 


+ 


CMAX] * SIN(PHI1)) 
DVY] # SIN(PHI])) # CHel = (FAX) 
CH2r = RZS iP A CCBY=CB Si) A065 
0) 34, CCB Is nee 1 B20/)8) 


CMT # 
COS(PHI1) + 
(CB1+CBe2)) 


et 


1Sw4 
1Sw4 


ete IR BED 
EO, £14)) TD 


+ FZPH(I) 
0} sGOk TOs et 


12 FORMAT (//95Xs17HLOAD UN WHEEL NOcsI2e69HHAS CHANGED SIGN DUE TO PIT 


PEHSEOAD: TRANSFER. SI 
11 CONT INUF 


MULATION NOT VALID NOW s//) 


C TIRE VERTICAL LOAD DISTRIBUTION = ROLL EFFECT 
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45) % 
452% 
453% 
454% 
455% 
456% 
a5 7% 
4543 
459% 
ait 
46 | % 
4nPt 
GHA Ax 
464% 
465% 
LAr, tt 
46 

G4ORs 
464% 
47()% 
a7\* 
47e% 
Sits 
474% 
475% 
476% 
477* 
47K 
GT Git 
GHA) % 
4A] # 
48% 
483% 
484i 
485% 
486% 
487% 
4BHi 
4RO% 
49% 
49] % 
492% 
49 3% 
494% 
495% 
49H* 
497% 
49K% 
499% 
500) # 
501# 
S0c% 
50 3% 
Sia se 
505% 
506% 
507% 


g 


ROLLE = CMAX6 * COS(PHI6) + CMAY6 #* SIN(PHI6) + ((FAY6 # COS(PHI6) 
1-FAX6H * SIN(PHI6)) = CMST3 * (DVY6 # COS(PHI6) = DVX6 # SIN(PHI6)) | 
?)*CH26 

ROLLF = CMAX5S * COS(PHI5) * CMAYS # SIN(PHI5) + ((FAYS * COSKIPRITSI 
1-FOXS #* SIN(PHI5S)) = CMD2 * (DVYS #* COS(PHIS) = DVXS # SIN(PHI5)) 
2) # CH25 . 

ROLLA = CMAX4 #* COS(PHI4) + CMAY4 * SIN(PHI4) + ((FAY4 # COS(PHI4) | 
1=FAX4 * SIN(PHI4)) = CMST2 # (OVY4 # COS(PHI4) = DVX4 # STN PHI4)) 


2)V#CHAS 
ROLLB = CMAX3) * GOS(PH13) + CMAY3 * SIN(PHI3) + (CRAYSRERGOS (PHT 3S) 
J=FAX3) * SIN(PHI3)) = CMD1> * (DVY3 * COS(PHI3) = DVXSReSSuNiCP RLS) 


2) * CH23 
ROLLE = CMAX2 * COS(PHI2) + CMAYe * SIN(PHI.2) “+ (CHAVA seCOS (PRIZE) 
1 oF axe %® SIN(PHT2)) = CMST] * (OVY2 # COS(PHI2) = DVAe & SIN(PHI2) 
2))%* CHee 

ROLLO = CMAxXT  * COS(PHI]) * ‘CMAYL * SIN (PHID)) +i CURA esa eOS Ce ites) 
J=-FAxX] * SIN(PHI])) = CMT #%* (DVY1 #* COS(PHI1) = DVX1 # SIN(PHI1)) 
PAN ant (Cl alee 

THE TAH = (ROLLF/SCOS(PHIS=PHI6) + ROLLE) 7 (2-0 * (SPRGOC7T * CD14##2 
1+ SPRGC6 * CDO1L2*#2) ) 

THETAS = THETA6 #* CUS(PHIS=PHI6) 


FZRE C14) =. =" SPRGOC? -* COlS* THE TAG 
FZRiGI3) =F ZRII) 
FARE (l2) -s =  SPRGCE°*" CDOL2* THETAS 
ARC hI) SSF ZR Ove) 


THETAS = (ROLLB/COS(PHI3=-PHI4) + ROLLA) 7 (2.0 * (SPRGES>* CD10 s #25) 
Lt. SPRGCG. * (COBH 2)):) 
THETA3 = THETA4 * COS (PHI 3-PHI4) 


FZRL(10) = = SPRGC5 * CD]1U* THETA4 
FZRL (9) = ~ FZRL(10) 
FZRL (8) = = SPRGC4 # CDA * THETA3 
FZRL (7) = - FZRL(8) 
THETAC "= CROLEU 7 COS(PHII=-PHI2) + ROLLE) 7 (2.072 CSPRGESH 
1CLDO%##2 + SPROCeA # CD4##2 + SPRGC] * CDe*#2) ) 
THETAL = THETAC COS(PADI=PHE2) 
FE ZIR6) cet SP RGEC SH (CDG: ee THETAZ 
FZRL(5) = = FZRL(6) 
FZRL(4) = = SPRGC2 * CD4 * THETA] 
FZRL(3) = = FERL (4) 
RZRL G2) = = SPRGCGI IC D2 7 WHE TVA 
FZRL(1) = = FZRL(2) 
TIRE VERTICAL LOADS = SUM OF STATICsROLL»AND PITCH 
IB = 14 
VRS W3) tel Teel AND eo ESiWiS lol er Ae) SB =) 56 
DE CISWSe eter L PeANDS VESWSG SEOs 1)! sR sao 
END! st 0 
DOS: iegiai slog Tues 
PZT) “SF ZS ee EZRA GLE oe RZ RILGE) 
LFSC AiG: sieiGilien: Ore OMe IN Dian 
CONT TINUE 
te CUNDsEQc00l GO Ol) 
CAl = 1.0 * SPRGC7 * CD14 ## 2@ + 2.0 #* SPRGC6 * CDl2 ##2 
Cx2 = 2.0 * SPRGC7 > * CD14 #% 2 + 1.0 * SPROCE * EDNiaewe 
CX3 = .1.0°* SPRGC? * CD14 *## 2 + 12.0 * SPRGC6 * COLA see 
Cx4 = 1.0 * SPRGCS * CD10 *# 2 + 2.0 * SPRGC4 * CD8 ##2 
CXS = 2.0 * SPRGCS * CD10 ## 2 + 1.0 * SPRGC4 * COB #82 
CX6 = 1.0 * SPRGCS #. CD10 ## 2 + 1.0 # SPRGCS * CDB #2 
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Soxa% CX7 = 1.0 #* SPRG ; 
a e G3 + CD6 *# 2 > e 
a oy BE aDevEgscSy n' Gae Luts 2e0 #* SPRGC2 # CD4 ## 2 + 
> = 2.0 * SPRGC3 * CD6 ## 2 + % Ss 
ue vs 2.0 * SPRGC] * Coz ## 2 1.0 SPRGC2 * CD4 ## DP + 
t : KO =e! SesSPRGEC3 7H) CDG er 24) 22 5 
ne os 1 Lai #SSPRGG) 94 CD22: se 2 se ae: aca! 
3 [XAlO= 1.0 * SPRGC3 * COOH ## 2 + 5 
00 + ; ; 
oe sane se Dye ahd Patek FIZ €13 eo Te0 610: 4G0> TO! 14 
° in e eoVe e Ai os FZELS) Stet 0's O)) .GC 
5 Lae HE(P 213) eGT.0e0 ANI Ae shh ie 
; ° oVe CAND FZ001) ol 1-26.00) G 
Riss Z : ol Te0e GO TO 16 
ee Mazi heS iO eANDe BZ O12!) iL s0'e0)1 GO <TH: 117 
ete Se oe Ten Ue eANDe F2Z(13) 66T e020) GO TO 18 
522% aa i eGTeVeI eANDe FZ(14) e-GTe0ef) GO TO 19 
323% 14 CONTINUE 
ae Hee sae = = FZSTPH(11) 
ae a, Beek Seen ee oo eee ae / CkKe 
: ee * THETA6 #* C P = 
Zale FZRL(13) = SPRGOC7 * CD14 * THETAS6 i aan ee 
ay, FZRL(14) = = FZRL(13) 
cut GO TO él 
531% 15 CONTINUE 
aa rah nage hes FZSTPH( le) 
ee Ton eee cee ee eee cere 4 CKe 
: : =) 6S G ec * THETA6 * COS(P 52 
Be: FZRL(13) = SPRGC7 * CD14 * THETA6 alec a Ge 
935 FZRL(14) = = FZRL(13) 
536% SOLO. cal 
537% 16 CONTINUE 
2a FZRL (13) = = FZSTPH(13) 
Bs Lae Began serie aula ae Auveoc cies. 4 CXl 
= le * THETA6 *# = 
a FZRL (12) = = FZRL(1)1) SAL a aacas 
> FZRL(14) = = SPRGC7 * CD14 * THETA6 
543% 560 TO 21 ni 
544% 17 CONTINUE 
eae FZRI (14) = = FZSTPH(14) 
an 1 ea Be re, eee a ae cer cae e. 4 Cxl 
oF =r i C D12 * THETA6 * COS(PHI5= 
Bea FZRL(12) = = FZRL(11) i Pls Wie. 
FZRL(13) = SPRGC7 * CD14 # TH 6 
550 * G0 10 21 a 
55]# 18 CONTINUE 
a F2kL (11) = = FZSTPH(11) 
=e Bee Ee = = FZSTPH(13) 
HETA6 = (ROLLE=FZRL(13) *CD14+%(ROLLFHFZR t 
555: Pay. x 3 i FZRL(11)#CO012)/COS(PHI5= 
FZRL (12) = = SPRGC6 * CD12 * THETA6 * ; 
SF COS (PHI5=P 
SS7*# FZRL (14) = = SPKGC7 * CD14 #* THETA6 a 
558# GOR ROM eal 
959% 19 CONTINUE 
2 FZRHL (12) = = FZSTPH(12) 
oe FZRL(14) = = FZSTPH(14) 
THETA6 = (ROLLE+FZRL (14) #CD14¢(ROLLF+F ZR HCL ; 
5638 1PHIO) Pees L L(12)#CD12)/C0OS (PHI5= 
4 FZRL(11) = SPRGC6 * CD12 * THETA6 * COS(PHIS=PHI6) 
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by Fp by % 
5S66* 
Se, 7s 
SE Hi 
eke nn 
4S 7) * 
QP} i 
Q ? Pte 
S738 
SG 7a 
QKISt 
576% 
S7/%* 
QT st 
SiGe 
K Hii 
Ky a 
5a¢% 
Sa 3% 
584% 
5aS# 
Sd6%* 
SATs 
SRR 
SROs 
59% 
591% 
592% 
S93 
SO4qt 
595% 
596% 
SQ fis 
5 G+4 te 
KQurz 
6ug%* 
60] % 
6N2% 
A0 3% 
604% 
605% 
O06 
60 7* 
608% 
6BNG* 
6lo# 
6)1)]%* 
612+ 
613% 
614% 
615% 
616% 
61 7% 
614% 
619% 
62()* 
62el* 


FZRL(13) = SPRGC7 * CD14 # THETAS6 

21 CONTINUE 
DPR Z (Me Gi e Vie ce AND) FZ COLT 600:0)) (GO) TO ee 
IF (F208) eOTeV0eVU eANDe FZ ADO) Fe Toi Ove O)) GO TO -23 
IF (F7(9) eGTe00eU eANDe FZ(11)e-LT2000) GO 10 24 
IF (FZ(10) eGTe000 eANDe FZ(12)eLTeV20) GO TO 25 
IF (CF Z(7) ebT e000 eANDe FZ(9)-6Te 020) GO TO 26 
IF (FZ(8) e¢GTeVed eANDe FZ(10) eGT.000) GO TO 27 
GO 10 2A 

Cc CUNT INUE 
EZR Rb = Gat Ziel) 
THETA4 = (ROLLA (ROLLB-FZRL (7) #C08) /COS(PHI3-PHI4)) 4 CX5 


FZRi (8) = = SPRGC4 * CD8B * THETA4 * COS (PHI 3=PHI4) 
FZRE(9)) = "SPROGS COMO Sa THEM AG 

EZR C10) 2S = FZ RE C9) 

E0770: 28 


23 CONTINUE 
FZRL (8) = = FZSTPH(8) 
THETAS = (ROLLA (ROLLKBYFZRL (8) #CDS) /COS(PHI3B=PHI4)) 4 Cx5 


PZRECT)0 = SPRGC4 + COB 8 THE WAS +) COS (CP HT Spiga 
PZRio C9) =, SPROCS: # COLO * THE TAS 

FZRL (10) = = FZRL(9) 

GOPVOse8 


24% CUNT TINUE 
FZRIL(9) = = FZSTPH(9) 


THETA4 = (ROLLA=FZRL (9) #CD1L0*#ROLLB/COS (PHI3=PHI4)) 7 Cx4 
FZRL(7) = SPRGC4 * COB * THETAG * COS(PHI3=PHI4) 

FZRL(8) Ss = PZR 7) 

FZRL (10) = = SPRGCS # CDloO # THETA4 

GUMTO. 28 


25 CONTINUE 
PZRIOGCLO)® = =F ZSTPH CO) ; 
THETA4 = (ROLLA+FZRE (10) *C010+ROLES/COS(PHIS=PhITA I eAmexs 
PZRE (7) = -SPROC4A SUEDE FO THE TAG * *> COS tPHTS=PiAir4) 


FZRL (6) =P RI Ge) 
RAR = SPROCS FCO LO (THE TAS 
GOsMmOR 2s 


26 CONTINUE 
RZRIG) c= = iro PR Wi) 
FeZRiEC9)) ears EZ Sil PNG) 
THE TAG = (ROLLA=FZRL (9) #CD10+% (ROLLB=F ZRL (7) #CD8) /COS (PHI3=PHI4) )/ 


1CxX6 

FZRI (8) = - SPRGCS * COB * THETAS * COS(PHI3=PHI4) 
FZRL (10) = = SPRGC5 * CO10 * THETAS 

SQ) OMe 8 


27 CONTINUE 
FZRL (8B) = = FZSTPH(S#) 
FZRL (10) = = FZSTPH(10) 
THETA4 = (ROLLA+FZRL (10) #CD10+ (ROLLB+FZRL (8) #CD8) COS (PHI3=PHI4) ) 7 | 


1CX6 
FARE CT a= SPRGOC4 “#:(COB8 Ve TRETAS © COS(CPHTS=PAk4)) 
PZREC- Oo). = SRRGCS: Hy CO 1L00 sete AG. 


28 CONTINUE 
TP CRZ 02) OTe 000° AND KF Z(¢3) LT e060 sANDs (FZ (5) eee OO GOMTON2e9s 
IF (F202) eGTe000 eANDe FZ(4) ol Te000 eAND. FZ(6) cE T0600) 1GO) TO 31 
IF (FZ2(3) eGTe00e0 eANDe FZ(1) eLTe0¢0 eANDe FZ(5) eL T2000) GO TO 32 
IF (F2(4) «OT 2000 eANDe FZ(2) eLTe000 eANDe FZ(6) eL TOV) GO TO 33 
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622% 
623% 
624% 
625% 
626% 
627% 
AO 
6c 
631% 
631% 
63e%* 
643% 
644% 
635% 
636* 
637% 
6 3K% 
639% 
640% 
64) * 
64% 
64 3% 
644% 
645% 
644% 
647% 
648% 
649% 
65% 
651% 
65c% 
654% 
654% 
655% 
656% 
65 (*# 
6S R% 
659% 
660% 
66 ] *# 
662% 
663% 
664% 
665% 
666* 
66 (* 
6hR* 
669% 
670 *# 
67) * 
672% 
673% 
674% 
675% 
676% 
677% 
678% 


eg 


Si 


32 


33 


34 


35 


PRMRZ (5) «OT4eG:6'0 eANDe FZ 1) wl o:0i00 eANDe FZ(3) oL Teo 
IF (FZ(6) eGT eGo eANDe PZkerlelTe060 eANDe FZ(4) el Tee 
LEGEZCS)0@Gi eOsOceANDic FZ05) 6G e020 eANDe oF Z (1) ol 100% 


LF (FZ (4) eGTeGe0 eANDe FZ(6) eGT eel) cANDe FZ(2) el Tele 
COr RO 38 

CQinW ty J NUE 

FZREICI! "St = Fh ZSTPHICT ) 

THETAe = (ROLLC+(ROLLD=F ZRL (1) #CD2)/COS(PHI1L=PHI2) ) 
FZRL(2) = = SFRGC1l * CD2 * THETA2 * COS(PHI]<-PHI2) 
FZRLEL (3) = SPROCP * CDS * THETA * COS (PHI]1=PHI 2) 
FZRL (4) = = FZRL (3) 

FZRL (5) .= SPRGOC3 * CD6 * THETA? 

EZRE (6) = = FZRL(S) 

GU, TO 38 

CONT TINUE 

FZRL (2) = = FZSTPH(7) 

THETA = (ROLLEL+ (RULLUDFF ZRL (2) #CD2) /COS(PHI1=PHI2) ) 
FZRL(1) = SFRGCIO * C02. *) THERAL * CoStPHLlsPHI 23 
FZRL(3) = SPROCE * CD4 * THETAe * COS(PHI1=PHI2) 
FZRL (4) = = FZRL (3) 

FZRL(5) = SPKGOC3 * CDo # THETA2 

FZRL (6) = = FZRL(5) 

GOL GO Sie 

CONT I NUE 

FZRKL (3) = = FZSTPH(3) 

THETAC = (ROLLC+ (ROLLD=FZRL (3) #CD4) /COS(PHI1J=PHI2) ) 


ZR) = SPRGC] * CDé2 * THETA2 * COS (PHII-PHIc) 
PPAR EC 20y satin IF ZR Cs) 

FZRL(4) = = SPRGC2 * CD4 # THETA2 * COS(PH1)]=-PHI2) 
FZRL(S) = SPRGOCS + CD6 * THETA2 

BZPISGa) 4 -=) F ZR C5) 

GO TO 38 

CONT TINUE 

F7ZRL(4) = = FZSTPH(4) 

THETA2 = (ROLLC*(ROLLD*F ZRL (4) #CD4) /COS(PHI1=PHI2)) 
Faz Gle) <= SPRGOC] * CD2 * THETA2 * COS(PHI)=<PHIic) 
FZRL (2) = = FZRL(1) 

FeZints (3) = SPRGC2 * CD4 * THETA2 * COS(PHI1-PHI2) 
FZRL (5) = SPRGC3 * CO6 * THETA2 

EZR (6) f= = SFZRL (9) 

GO whO +38 

CON | TINUE 

BZRIRCSe Gar ZS PH CS) 

THETA = (ROLLC=FZRL (5) #CD6+ROLLD/COS(PHIIJ=PHI2)) # 
BARES a coe RoC? # CD2 # THETAe * COS(PHI TPH 2) 
PARC = aii ARL Cl) 

EZR (3). =/SPRGCe *. CO4 # THETAe * COS(PHI1=-PHI2) 
FZRL(4) = = FZRL(3) 

EZR C6 =" =e Se RGC3S * COG. 2 THETAC 

GO TO 38 

CONTINUE 

EZRIOCoW =te pk ZSTPH C6) 


THETAZ2 = (ROLLC4#FZRL (6) *CD6*¢ROLLD/COS(PHI1L=-PHI2)) 7 


BRK =! SPROCA SCOe # THETAA * COSMP HIT <PHI2) 
FZRU (2) = = FZRL()) 
FZRL (3) = SPRGC2 * CD4& * THETA2 #* COS(PHI1=-PHIe) 
FZRL(4) = = FZRL(3) 
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0) GO 
0) GO 
0) GO 
0) GO 


/ CX9 


4 CK9 


7 CX8 


4 CX8 


CX7 


CX7 


TO 
TO 
TO 
TO 


34 
35 
36 
37 


A 7Or 
OB 
6B) % 
ORR 
6R 4% 
AHMat 
Kx tt 
AiR jae 
689% 
AQ % 
BG)» 
H9c% 
&G 43> 
695% 
KOA 
697% 
69% *% 
699% 
TOs 
71 
TO?Cs 
70 3% 
714% 
TOS* 
TO06A% 
707% 
COE 
7O9% 
Flot 
711+ 
Tlew 
713% 
714% 
T15*% 
715% 
717% 
TLR 
T19% 
Te)% 
721% 
722% 
723% 
724i 
725% 
T26% 
7T27* 
728% 
729% 
730% 
73)% 
732% 
733% 
T34% 
735% 


36 


Sil, 


a8 


39 
13 


5) 


52 
50 


40 


199 


299 


FeZ REC Sige SERGCS ta COGE  Nhem Ac 


GO TO 38 

CONTINUE 

PARI GS) ess sFeZ Si raesy) 

FZRL(5) = — FZSTPH(5) ! 
THE TAC@=(ROLLC@F ZRL (5) #CD6+ (ROLLD=F ZRL (3) #CD04) /COS (PHI1=PHI2))/CX10: 
FZRL (1) = SPRGC1 #* CD2 * THETA2 * COS(PHI1=-PHI2) | 
EZR Ge i= ra Zlen elo) 

FZRL (4) = = SPRGCe * CO4 * THETA2 * COS(PHI1]=PHI2) 

PZRE COies=" = SPRGCS 4 COG * THETAe 

80 70 38 

CUNTINUE 

EZR) = FE ZS MPEGS) 

FZRL (6) = = FZSTPH(6) 

THE TAC=(ROLLC#FZRL (6) #CD6+ (ROLLD*FZRL (4) #CD4) /COS (PHI 1=PHI 2) )/CX10 
FZRL(1) = SPRGC] * CDe * THETAG * COS(PHII=PHI2) 

EZRIRC2 Gas FeZ Rie) 

PZRE CS = SPRGC2 * CD4 * THETaA2 * COS(PHI]=-PHI2) 

FZRISCSi = SPRGG3) SCD 6%) THE TWAZ 

CONTINUE 

DOSS se. veh 

BACT) CS IEZS RCE) Cee PMO): + ZR Ie) 

CON] JT NUF 

It (1SW29 eLTe 1) GO TO 50 

SUMFZ = 0-0 

DOMES lee Me si livg Tats 

SUMEZ 4=) 9SIUME Za es Foz (Te) 

DOS Ayes =! sleeulis 

BIN BiZs le) oa Ze (he) y/o UM Fae 

CONTINUE 

00 40 1=]¢8 

DO 40 J=1+68 

PN OU Chee ieee ani 

and Ga) iS a i Ban i 

DO 199 J=1e5 

OO 199 J=1le6 

AAG =: 20%610 

RB(TtTel) = 0.0 

NG 299 T = 14 

HO 299 Jj = 164 

AAA(TsJ) = 060 

RBB(Toel) = Oo 

A(&el) = CRK3 #(CMST1+*CMD1*CMST2*CMD2+CMST3) * SIN(PHI1) 

A(Bee) = (CMST1 #* CB4 + (CMD1+*CMST2*#CMD2+CMST3) * (CB4+CB6)) # 
ISIN (PHI?) 

K(6e3) = (CMD) * CB7 * (CMST2+CMD2+CMST3) * (CB7*#CB9)) #SIN(PHI3) 
A(8%e4) = (CMST2 * CB10 + (CMD2+CMST3) * (CB10*%CBl2)) * SIN(PHI4) 
A865) ce (CMDée * CB13 + CMST3 * (CB13*CB15)) * SIN(PHIS5) 

A(8e6) = CR16 * CMST3 # SIN(PHI6) 

A(7el) = =“CB3 *(CMST1+*+CMD1*CMST2*CMD2+CMST3) #* COS(PHI1) 

A(7s2) = =(CMST1 * CB4 + (CMD1+CMST2+CMD2+CMST3) * (CB4+CB6)) *# 
1C0S (PHI 2) 

A(7e3) = =(CMD1 * CB7 + (CMST24+CMD2O+CMST3) * (CB7*CB9)) *#COS(PHI3) 
A(7s4) = =(CMST2 * CB10 + (CMD2+CMST3) * (CB104CBl2)) #* COS(PHI4) 
A(7«5) = =(CMD2 * CB13 + CMST3 # (CB134CB15)) * COS(PHI5) 

A(7e6) = =CB16 * CMST3 * COS(PHI6) 

Ase e Jae GaleZe7o1 
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73% 
737% 
738% 
739% 
T7400 % 
14) % 
147% 
44% 
744% 
745% 
T45% 


head 
| 748% 


T408 


| 150% 


To 1% 


| 752s 


753% 


| 754% 
I) 755% 
) 756* 
| B/S Aae 
| 756% 


759% 


T6() 3 


716) % 
162% 
76 3% 
T64% 
765% 
T66% 
761% 


| T6n% 


T69% 
TT % 
Tate\ 3 
TTe% 
T7T3% 
T74% 
T15* 
776% 
ater % 
T78% 
TT9% 
780% 
TR) 
782% 
TB3% 
784% 
TB5S* 
T8565 
T8/% 
BIB 
789% 
790% 
T9)% 
T9P% 


131 


A(2e1) “CMST1 * CA3 * CHE * COS (PHI1=PHI2) 
Alée2) CTZZée = CMST1"* CBG. *°CB6 
LPCESW3" eb Te 2 aANDS( ISW4" ot: Ts 71)) GO-TO: 131 


Hou 


A(3e1) = = CB3 * (CMD1> + CB9°+ > CMST] #*(CB7+CB9)) * COS(PHI1=PHI3) 
A(3e2) = -(CMD1 #* CB9 #* (CBH4+CB6) + CMST] #* CB4& # (CB74+CB9)) * 
PEOSCPHL2=FiHT 3) 

A(363) CIZ73.<e° CMD] *-CB7-#<CB9 


A(4e1) = ©=CK3 * (CMST2 * CKh12 + (CMD14+CMST1) * (CB10¢CBl2)) # 
1COS (PHI 1T=RPHi4) 

A(4—6e) = =(CMSfe2 * Cade * (CBR44CR6) + CMOL * CB4& #* (CB104¢CBl2e) + 
TC™ST] # CH& *# (CRL04Ch12)) * COS (PHI2=PHI4) 

4(493) = -(ENSTS? * Cale * (CK7+CK9) + CMD] * CB7 * (CB1O0+CBl2)) * 
1CUS (PHI 3=PHT4) 

Al4e4) = CIZZ4 = CMSTe # Cdl! * CRIO 

IF CISW3 .eLTe 1 eANDe ISW4 EQ. 1) GO TO 132 

A(Se}) = “CKH3 *(CMD2 * CRI15 + (CMST2*CMD14CMST1) # (CB13*CB15)) # 
ICUS (PRI LeFHTS) 

A(5e2) = =(C’D2 * CRID * (CB44*CB6) + (CMST2+CMD1) * (CB4+CB6) * 
1(CH134CKi5) + CMST] * CR& *# (CB]13+CK15)) * COS(PHI2=PHI5) 

A(se3) = =(CMD2 * CBI1S * (CR7*CB9) + CMST2 * (CBK7*CB9) # (CB13+CBl1 
15) + Cf) * CB7 * (CB13+CB15)) * COS(PHI3=PHI5) 

A(95e4) = =(CMV2 * CB1S * (CB10+CBl2) + CMST2 * CBl10 * (CBKB13+CB15)) 
1#CUS (PHI 4=PHI5) 

M(S(S)o t= sCLZZ> = CMDe * CBS * CBI5 

A(6el) = =CK3 * CB16 *(CMST1*CMD1+*CMST2+CMVD2) * COS(PH11=PHI6) 
Al(oe2) = =(CK4& * CB16 * (CMST1+CMD1+CMST2+CMD2) + CB6 * CB16 * 
V(CMD1L4*CMST2+CMO2)) * COS (PHI2=PHI6) 

A(6e3) = ~(CB7 * CKH16 * (CMD1+*CMST2*CMD2) + CB9 * CB16 * (CMSTe + 
TCMO2)) * COS(PHI3=<PHI6) 

Al(6Oe4) = =(CBI1O * CR16 #* (CMST2+CMD2) + C8l2 * CR16 #* CMD2) *# 
1COS (PHI4=PHI6) 

A(6e5) = =CR13 * CBR16 * COS(PHIS=PHI6) * CMD? 

DuliGi6)) ea ‘C1776 


Or RO. 33 

AAA(1ls1) = A(lel) 
AAA(2e1) = Ales)) 
AAA(292) = Aleee2) 
AAA(3o1) = Allol) 
AAA(3e2) = AlTse2) 
AAA(491) = A(8ol) 
AAA(4e2) = A(Bo92) 
(G2 of MO) S33 

AAC) = ACL e1) 
AA(2el) = A(edoel) 
AA(2e2) = Al2es2) 
AA(3e]) = A(391) 
AA(C3s2) = Al(3e2) 
KAW3 93!) “=. ACS eS) 
AA(4el) = A(4el) 
AA(4e2) = Al(4ee2) 
AA(443) = A(493) 
AA(4e4) = A(494) 
NARS eal) i= HAN HT ee) 
AA(Seec) = Al(T92) 
AA(Si3)" = ACT) 
AA(5e4) = A(794) 
AA(601) = A(891) 
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79 3% AN\i(osee) = A(8e2) 
T94% AA(643) = A(B93) 
195% AN(644) = A(8e4) 
796% 133 CONTINUE 
T97* KETURN 
TIBH EWE 
END OF COMPILATION: NO DIAGNOSTICS. 
| 3 SUBROUTINE RRAKE (Ty ISW1) 
pe IF (ISW1L.67Fe)) 60 TO 1000 
35 COMMON/CLBOSEF oD 
4 st COMMON/SC220/VDELTAD 
si COMMON/C260/KK 
Ai COMMON/C350/ISW9 » ISWwe9 
7% COMMON/ C351 /bKF Z 
si Me C warts T= TIME IN oThrsS: ROUAENE 
Gy se OIMENSION D(14) «© HK(14) «© XK(14) 9 F(14) 9 BKFZ(14) 
10% bo 90 I = 1414 
1} % XK CP) = O20 
le* BK(T) = Oe 
13% BREE Iyie v=". Gr 10 
14% AGL iss VO pet! 
1 3 90 F(I) = 0-0 
lax TEXCES Wo: ote cla GO OM Te 
1/* READ (5010) TBRAKEs( SK(I) sI=1014) 
1% 10 FORMAT (15F5-e0) 
] os ll WRITE (6e2U0) TBRAKE «© (KBK(I) oe Ll=1014) 
Cty % 20 FORMAT (14H BRAKING INPUT//20H BRAKING BEGINS AT F923e8H SECONDS/ | 
el* L/30H PERCENT BRAKING ON WHEEL K(1)/7H K(1)=F60497H K(2)=F 60497H 
22% P K(3)=F604%e7H K(4)=FOe4e7H K(5)=F6e4e7H K(6)=F6e497H K(7)=F 664 
23% Ze7H KB) =HFG6e4e7H KI9)=F604e8H K(10)=FOe4o/97H K(11)=F60e497H KI] 
24% 22) RRHe4e 7H K(13) =F5e497H K(14) =F6Oe4/S/) 
2d* RETURN 
ene 1000 CONTINUE 
el 30 IF ( TeGEseTBRAKE eANDe DELTAD-LT-0-0): GO TO 50 
vats XK(1) = O20 
2% XK(2) = XK(1) 
30% KGS) Se eS 
3) % KK(4) = XK(3) 
32% DO 40 1=5614 
33% 47) XK(I) = 029 
34% GOTO! £0 
35% 50: DO: 6G" Led eaty 
3A* LRe(rSw2eo sEQs 19) GO T0S12 
37* AK OL) 3S RRC) 
38% G0 TO 60 
39% lé2 SRC), v=" BISEZICK) 
4% 60 CONTINUE 
4 | % TOSLDO: BO. TH Tres 
40% B80 NCI) =AK (1) #DELTAD 
43% RETURN" 
44% END 
END OF COMPILATION: NO OIAGNOSTICS. 
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SUHMROUTINE CIRCLE (NPTSeTMaAXx) 
OIMENSTON YPOS(500) * YVFL(500) » YACC(500) » XPOS(5U0) » XVEL (500 
Wess eA CE (S00) coo TCS 00) 


2eH¥ (100) » DDY(100) » VCURVE (500) » ACURVE(500) THETA(500) 4 
SAKEGSC LON) “9 YYPOS(100) ». XXVEL (100). » YYVEL (100) —s XXACC(100) ¢ 
4¥YACC (100) «© LDYY(100) » DDYY(100) » ALPHA(100) ¢ VELC2(100) ¢« 


Saccee (law) « KADIUS (100) . CPACC (100) 

CUMMON SCLISSYACC 9 XACC/C14+U/YPOS sXPOS/CISO/YVEL oXVEL/C240/TINT 

COMMON/SC440/CLONG2 eATIME 

READ(S—s10) CLUNG » RAD 5 THETAR » VSTART » FACC « TINT » TMax 
1 «¢ SwITcH 

READ (Se10) STEP]. » STEP2 « STEP3 . STERG » STEPS » STEPS -» FFACC 

LO FORMAT (SF 10.0) 
X = PS5e!) * P5260 * CLONG * CLONG / (86.0 * 4820 * RAD) 
WHITE (Gets) A 

B FORMAT(SX 9 THXNEW = oF 1064 g/S/) 

CWIONTH = & 

RIC c= Ned .%* CLONG 

YUCT = (CWIDTH # (35.0 # (CLONG##3.0) * (XUCT##4,0) = 84.0 *# 

1 (CLONG# #260) * KICT##S.0) + 70.00 * CLONG * (XUCT##6.0) = 2020 
20% (XJCT##7.20))./7 (CLONG##7..0) 

DYJCT = (CWIDIH * 20.0 * (7,0 #* (CLONG##3.0) # (XJCT##3,0) = 
l2le0 * (CLONG##2,0) * (XUCT##4.0) + 2leM * CLONG #* (XUCT##5.0) 
27 7.0 * (XUCTHHGC0))) SF (CLOUNG##7.20) 

THE TAL = -ATAN, (DYJCT) 


KCTR = KUCT = RAD * SIN( THETA) 
Veda LIC h + RAD * COS-CTHE TAL) 
XCKE = xCIR + RAD * SIN( THETA] + THETAR) 
YCRE = YCTR = RAD * CUS(THETAI] + THETAR) 


KEX = XJCI = RAD * SIN(THETAL) + RAD * SIN(THETAL + THETAR) + YUCT 
1® SIN(2.0 * THETA] * THETA?) + XJCT # COS(2.0 * THETA] + THETAR) 
YEA = YJUCI + KAD * CUS(THETA1) |= RAD * COS(THETA] * THETAR) = YJUCT 
1 *#COS(ee0 * THETA + THETAR) + XJCT * SIN(2@.U0 * THETA] + THETAR) 
WRITE (6912) CLUNG »« CWIDTH » VSTART » FACC » KAD » THETAR 9» TINT 9 
}) Tax 
12 FORMAT (5XelLOHSPECIFIED LENGTH = oF 10e2@s6H FEETs27X919HCALCULATED 
PWlODITH = eF LGeecs6H FEETe//o5Xeo1SGHINITIAL VELOCITY = »9Fl0e2s8H FT/ 
PSEC e25K eo C4HACCEL ERATION CUNSTANT = oF 10c¢29//95Xe1 8HMANEUVER RADIUS 
3 = oFl0.296H FEET928Xe17HMANEUVER ANGLE = oF 10.598H RADIANO/S/ 6 
495Xo16HTIME INTERVAL = oF 100¢2@ 98H SECONDs28Xo]9HMAXIMUM RUN TIME = 
SeF10e6299H SECONDS s//) 
WRITE (6¢9) SWITCH « STEP] » STEP2 » STEP3 9 STEP4 » STEPS 9» STEPO 9 
Ne EAE 
9 FORMAT (5Xe99HSWITCH = FoeleSXo8HSTEP] = F5e095Xe9B8HSTEP] = F52.095X%98 
LHSTEP3 = FS.085Xo/S//S ao 5KSBHSTERPS = FS.095XeoBHSTEPS = FOe0oSXeB8HSTEPG 
A= See Ske BHRFACC. = FSe20//) 
WRITE (6913) XJUCT »© YUCT «© THETA] 9 XCTR » YCTR » XCRE » YCRE +4 
1XEX « YEX 
13 FORMAT (5Xe7HXUCT = sFlUe3e5H FEET92@5Xea7HYICT = oF 1003095H FEET925Xo9 
1 GHIHETAL = oF l0¢5s 7H RADIANS /S/95Xe7THXCTR = gF10e395H FEET 925Xo 
OTHYCTR = oF 10e2e95H FEET e25Xo7HXCRE = oF l0e2o5H FEET e//o5XeTHYCRE = 
3 oF 1D eleDH FEET e COX es BHAEK = oF L0ce 95H FEETS2COXsOHYEX = oF 10el 95H F 
4FETe/S/) 
WRITE (6921) 
Cl FORMAT (LUASGHTIME 0 14 Xe DHX=POS 91 3K 9 SHY=P0S91 3X9 SHX=VEL eo 1 3X9 SHY=VEL 9» 
LISXseSHX$ACCe1L3AVDHYHACCeo/ 9 1LOXe BHSECo ISX o4HFEET 9 14X94HF EET 91 4X9 BHFE 
CET/SSEC eS LUXS BHFEET/SSEC 9 LUXSDHFEET/SSEC2Z 9 1LOXs9HFEET/SSEC2 0 //) 
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Rb se 
4G te 
Gist 
Qi 
9e%* 
Q 3% 
Gar 
95 % 
95% 
Ql 
Que 
QQ% 
100% 
10) + 
192% 
LO 3% 
104% 
195* 
L0A% 
LO7# 
108% 
1N9% 
a ae: 
2 ae ess 
nD beats 
Lis 
114% 


(e 


- 


3 


VEL 


32 


33 


43 


VPATH = VSTART 


Vatok) or= Pe Oe 

XPOS Ho) e= s:0he0 
AVENE C= Vv SiWARAT 
CACC = 010 

VA GAORS CC ae E30) (0) 

Y VEE) S c= Or) 
VAC EG) ea aOr 
Maa | 

J=[+] 


LACUS BOS OG Gore hon 33 

XPOS (UI SAPOS(T). e XVEE CI) -* TINT + O25 © TINT * WeiNieceA Gear) 

YPOS (J) =(CWIDTH * (3520 * (CLONG##3.0) *(XPOS(JU) ##46.0) = 44.0 *# 
L(CLONG##260) * (XPOS (J) ##520) + 7060 * CLONG *(XPOS(JU) ##6.20) = 20-0 
27CXPOS CURE 6 0) 7 GONG 7, 10)) 

OY J.) = CEWLOTH: * 2000 * (72.0 #(CLONG##3.0))) #CXROSI(U Gi Sie0)) n= 
Lele *® (CLONGHHO LO) #( XPOS (IU) ##4.0) © 2120 * CLONG #(XPOS (JU) ##5.0) 
em 7.0. (XPOS (4) #6201) )) 4 (CLONG##?7,0) 

NDY( J ) =(140-0 * CWIOTH * (3.0 * (CLONG##3.0) #(XPOS(JU)##2.0) = 
Lleev * (CLONG##O.0) *(XPOS(U) ##3.20) + 1520 * CLONG *#( XPOS (JU) ##4.0) | 
Cm O40 (XPOS (GU) ##5.0)))7 (CLONG##7.1) 

DENOMA= Ley ree nC DIVE Tol asenere Op) 

DENOMB= VDENOMA ## 025 
OCITIES AND ACCELERATIUNS 


XVELG wie) = VPATIA /Z DENOMB 

YVEL (Joo = (VR ATIE BenDYe do 7 nO EN GMB 

XACC( Jo) s=(VPATH *® VPATH * DY ( JU ) *  DDY( 3) 7/7 SD ENOMAuSs 27:03) 
YACC( J) =. (VPATH * VPATH # DOY( UY Y)7 COENOMAS +210D 
LFSCX POS CO) ua Gillie: XC Th),  GOmnOt a3 

oss ty Gare ean 

TG) F=> Pike te) ee Tae 

GOMtO)-3i} 

CONTINUE 

CORST t= HICH AH XPOS Cay) 

XVICT CS SGRT(UXVEL CI) ee 2ellte 2e0 * XACO(T) = CbDISip 
TENA = 200 SED TSM of OXVGGT ee xX VEGI) 

SENT SS PINT. = PENTA 


TEENTERY ee SIS) ee TaN A 

iu ees 

Tee) nar eo ee NT 

TRETAB = CVSTART WZ RAD Gl NN es 1+ ne sAg) 


XPOS (J) = XJCT = RAD * SIN(THETA]1) + RAD * SIN(THETAB) 
YPOSUI) = YUCT + RAD ** COSKTHET ALI =RAD COS CHE WAB)) 
XVEL(U) = VSTART * COS(THETAB) 

YVEL(d)> = VSTART? * SIN (CTHETAB) 

KACC() MS =S(VSTARTY 48 72.50) JUIRAD) © STUNCTHE TAB) 

YACE CI) e= (VSTART ## 2.0 / RAD) * COS(THRETAB) 

TsRST i=) WO) 

Kina] 

VCURVE (1) VSTART 


ACURVE (1) = Ge0 
THETA(1) = 020 


jaa lia 
MiGT ye See) ee TSN 
AS wee i] 


LOCC) * = TB RSW) e: Gires (Sib Pali se scleliNile)a) sn Oma Ons .0) 
ACURVE (kK) = “CR ACC* 7S TEPL. STi NT te Gil =n a Bi Sian) 


90 


| 16% 
|) 7% 
) ) $33 
I) ty 8 
| falls 
Bie 
Walaa 
2 shh 
24% 
{25% 
26% 
bore 
fet 
Qu 
bie 
31+ 
il 30% 
(133% 
|| Bat 
Ee 
ES 
37% 
13% 
139% 
141% 
leis 
()4e% 
14 3% 
144% 
jl45% 
146% 
1478 
ll4xH% 
149% 
jl 50% 
151% 
5a 
153% 
poo* 
(155% 
1568 
1S 7% 
hee. 
| 


‘159% 
160% 
16)+* 
B67 * 
163% 
| 164% 
165+ 
| 166% 
167% 
| 168% 
| ]6Q0% 
170* 
171* 


40 


4) 


42 


GO TO 45 
IFC (TCI) = TARST1) eGTe ((STEP] + STEP2) * TINT)) GO TO 41 
ACURVE(K) = FACC 


60 TY) 45 

HEAT GL) ce TARST YY). eGhe® CCSTERPL * STEPS’ *STERS) * TINT) ) GO TO ‘42 
ACURVE(K) = -(FACC /7 (STEP3 * TINT)) * (TCI) |= (TBRST1] + (STEP1 + 
WSTER2): 4 LINT)) 

GO TO 45 


CraGGh CL) = TERSIL) «Gls ((STEP] + STEP2 * STEPS)" =" TINT?) ACURVE(K 
LS) Oe 


45 CONT INUF 


50 


62 


VCURVE(K) = VCURVE(K=1) * ((ACURVE(K) * ACURVE(K=1)) 7 260) * TINT 
THETA(K) = THETA(K=1) * (VCURVE(K=1) 7 RAD) # TINT * 0625 * (( 
1ACURVE (K) * ACURVE(K=1)) / RAD) * TINT #* TINT 
IF(THETAC(K) oGTe THETAR) GO TO 50 


XPOS(1) = XJCT = RAD * SIN(THETAL) + RAD #* SIW(THETA(K) + THETAB) 
YPOS(I) = YUCT + RAD #* COS(THETA]) = RAD * CUOS(THETA(K) + THETAB) 
XVEL (I) = VCURVE (CK) * COS(THETA(K) + THETAB) 

YVEL (1) = VCURVE(K) * SIN(THETA(K) + THETAB) 

XACC(T) = = ((VCURVE(K)) #%# 2.0 4 RAD) * SIN(THETA(K) + THETAB) + 
YVACURVE (K) * COS(THETA(K) + THETAB) 

YACC(I) = ((VCURVE(K)) *##* 2.2.0 / RAD) * COS(THETA(K) + THETAB) + 
VACURVE(K) #* SIN(THETA(K) * THETa~S) 

GG 10 44 

CONT TINUE 


If ( SwITCH ele Oe OL 2) TAA = I 
IF ( SWITCH eGTe 020 ) GO TO 91 
CTHETA = THETAR = THETA(K=1) 


TINTC = CTHETA * RAD /Z VCURVE (K=1) 

ent = INT = TINTC 

REAL = (hel) + TINTC 

eel 

XXPOS(1) = = XUCT + VCURVE (Kel) # COS(THETAL) #* TINTOD + O0«5#TINTD 


1 #T INTO # (VCURKVE (K-1)) ## 2.0 # SIN(THETAL) / RAD 

YYPOS(1) = (CWIOTH # (3500 # (CLONG##300) * (XXPOS(1)##4.0) + 6400 
1 (CLONG##2,0) %# (XXPOS(1)##5.0)* 7060 * CLONG * (XXPOS(1) ##660) 
2% 20.0 %* (XXPOS(1)##700))) 7% (CLONS ##7.0) 

OYY(1) = (2060 # CWIDTH * (7.0 * (CLONG##3.0) # (XXPOS(1)##3.0) 

1 + 21.0 * (CLONG##2.0) # (XXPOS(1)##4.0) + 21.0 # CLONG # ( 
AXXPOS (1) ##5.0) # Ted * (XXPOS(1)##6.0))) 7 (CLONG##7.0) 

ALPHA(1]) = ATAN(DYY(1)) 

ALPHA(1) = ABS (ALPHA(1)) 

NDYY(1) = (14060 # CWIDTH * (366 * (CLONG##3.0) # (XXPOS(1) ##2.0) 
1 + 12.0 * (CLONG##2.0) # (XXPOS(1)##3.0) * 1560 * CLONG # 
2(XXPNS(1)##400) + 600 # (XXPOS(1) ##5.0))) 7% (CLONG##7.0) 

XXVEL(1) = VCURVE (K=1) # COS (ALPHA (1)) 

YYVEL(1) = = VCURVE(K=1) # SIN(ALPHA(1)) 

RADIUS(1) = ( 1e0 * DYY(1) ## 2.0 ) ## 1.5 7 ( ABS(DDYY(1))) 


CPACC(1) = VCURVE(K=1) #* VCURVE(K=1)/ RADIUS(1) 
XMACC(1) = CPACC(1) * SIN(ALPHA(1)) 

YYACC(1) = CPACC(1) #* COS(ALPHA(1)) 

TBRST2 = TCT) 

VELC2(1) = VCURVE (Ke1) 

ACCC2(1) = 020 

M= J 

M=M + 1] 


TeCMis= Mar) + TINT 


Ot 


j $4 sh 
LM43% 
]} 4% 
earls 
] Bat 
Less 
JRR* 
LHRHYs 
L9(s% 
191% 
aps 
194% 
194% 
195% 
] 5% 
We fox 
LOM 4% 
190% 
COs 
AO 18 
cle 
203% 
en4s 
COS% 
COA 
rae) {+ 
CNM 
P() 2% 


60 


61 
55 


ALPHA(L) = ATAN(DYY(L)) 
ALPHA(L) = ABS(ALPHA(L) ) 
DOYY (LL) -S 0140.0 * CWIOTH # (3.0) * (EL ONGHH3 2.0) be (XXPOS (IEcetHele 0)) 
1 +¢ lee # (CLONG##2,0) * (XXPOS(L) ##3.0) 15e0 * CLONG # 
C(KXXPOS (L.) #420) + 6240 * (XXPOS(L) ##5,.0))) 4% (CLONG#*®7.0) 
TE DDY YE): elite. Oe 00: 010/02") GO" 0:28 
RADIUS(L) = € 1.0 + DOYY (LI 8% 250) 9) ot PSH) Ce ABISIUOD WAAC) ED) 
CPAGE CL) =) VEECGAKRI > VEEE2 (IE) “7 RIND SiGe) 
GO-TO: 29 
28 CRAGCWE DJS. 208.0 
29 CONTINUE 
RAVE) CS VEL G2 Ces fen COSA PHAGHYa) 
VV WE Ce = VEE CPG)! ies NCA RIEIA Cab) 
XkKaGe(L) = -CPACE Co) & SINCALPHAE)) «+ AGCE2 UL), 22 GOSIVABET HARI) s) 
YYACG(L) = CRACE(L) 3 COS CALPHA CL) “= ANEECC2] CE) 2 SIENIGAMRRIARie)s) 
GO: 110.672 
LORS YM OSGI) a gh Oeer0 
XV CE) vos VEE EKG) 
YAYIMEE (Lay Se O70 
XK AG Cit) c=7_ AIGCEA GIS) 
YYACC(L) = 0.20 
TF (UXXPOS(L eGTe 10000) GU TO BO 
(305 FO 17 
80 CONT TINUE 
PHIs si'2002 Schade “7 THE RAR 
(EN iiiet= i ll 
TAAL aio 247 ole 
peas 
DOO; A= aL Be vet TeAlA 
XPUS(I) = COS(PHI) #* AXPOS(LL) = SIN(PHI) * YYPOS(LL) + XEX 
YPOS(¢1) «= SIN(CPHI) * XXPOS(LL) + COS(PAIT) * -YYPOSI(GEIE) i erayex 
XVEL (1) = COS(PHI) © AAVEL(LL) = SIN(PHI) * YYVELCEE) 
YVELACL): Sx SSENGCPHET)) 8 XAVEL CEL)” #7 GOSMWPRHT G2:Y YViEtes (aie) 
XACOCT) = COSMPAHTWY % XX ACEI) Yer SoPNCP Ade) 2s “Y YA GEC) 
YACC (1) (= SIENCUPHDI Se VAAN ECE) 47 COSC PAT IEE: SY YAGE Cai) 
Tee Wet Ul aa a | 
90 CONTINUE 
91 CONTINUE 


Esa. 

Ties CaTntM)) 
ACCC? (L) 
DOF TOMS 
DE Cie) 
ACCEet) 
OU nOr SS 
LES GCI Chin: 
CUNT TNUF 
VBC Cle) 
XXPOS (L) 


} 


1XxXACC(L=1) 


IF (AXPOS (L) 


NN OSHGs) 


1* (CLONG##2.0) *% 


GO TO 60 
TBRST2) 


THRST?) 
GORFYAGG 7 


(STEPS # TINT)) 
(T(M) = 


eGle 
CSTMEIP4 4 TeLN Tn) 
# TINT)) 


TRRSTe) GO TO 61 


FFACC 


0GTe ((STEP4+STEPS) 


TBRST2) eGTe ((STEP4+STEPS+STEPG) * TINT) )) ACCEAKE) =0..08' 


# INT 
lenin + 


VE Ge Wea) tel OUAGEGe Ce) 
X¥XPOS(L=1) + XXVEL(L=1) *#* 


+ ACCCA(E=1))) are 
TINT + O65) Seon 


OTe OO) (GOR MOR T.0 
(CWIOTH #* (3520 * (CLONG##3.0) *# 
(XXPOS(L)##5.0)+ 70.0 * CLONG # 


(XXPOS(L) ##4.0) + 84.0 
(XXPOS(L) ##6.0) 


At 2 Vie Wy 36 
DNA Cis 
Nees eral Mare 


EXXPOS (Ako 6 Octet (ei) 


(XKPOS (CL) HHO) 17 
(20.0 * CWIDTH * 


(CLUNG##2.0) % 
tt 


92 


(7.20 
(XXPOS(L) ##4.0) 
(AXPOS(L) ##6.0))) 


(CLONG 


te 


#+ 7.0) 
(CLONG##3.()) *# 


(XXPOS(L) *#3.0) 
4/2160. * CEONGH an ( 
(CLONG##7,0) 


| eds 


IND OF 


PTS = TAA = j 
CLONG2 = 164 * CLONG * RAD * THETAR 
ATI™“eE = T(NPTS=1) 
WRITE (69e2) (T(1) o9XPOS(1) eYPOS(I) sXVEL (1) »9YVEL (1) »XACC(I1) sYACC (1) 
lel=leNPTS) 
22 FURMAT IX SFLU edo KX oF LO eS eBX oF lUeSoNXsF LO eS eBXoF lO oD oBXoFlOe5eBXo 
1F10.5) 
WRITF (6023) NPTS 
23 FORMAT (//7ea5XoTHNPTS = ol5o0//) 
RETURN 
EN!) 


COMPILATION: NO DIAGNOSTICS. 


1 * 
cx 
3% 
4 i 
Gt 
&) 3 
7% 
Wier 
a tt 
1o* 
11* 
l2# 
13+ 
14% 
154% 
16* 
17# 
14s 


SUBROUTINE TAYINTCIPT) 

NOIMENSTION SPHI1 (500) sSPHI2(500) «SPHI3(500) »SPHI4(500) » 
i SPHI5(500) »SPHI6(500) 

COMMON /C30/PHI1] sPHI 2oPHI 39PHI4oPHISoFHI6 

COMMON /C90/DPHI1 »DPHI2sDPHI39DPHI4sDPHIS»DPHI6 

COMMON /C1LOO/DDPHI 1 sDUPHI2 »sDDPHI39sDDPHI4 sDDPHI5sDDPHI6 
COMMON/CA40/ TINT 

COMMON /C320/71SW3e15SW4 

IF (IPTeGTe2) GU TO lYU 

SPHI1(1) =0. 

SPHI1(2) =0. 

SPHIe@(1) =. 

SPHI2(2) =0-6 


PHI] = %. 
FHI2 = De 
DPHI] = Oe 
DPHI2 = Oe 


FIPHI] = O-« 


93 


36 
10 


ECPHIY = Ove 

Pie Lect mil id boat tadOir§ 

FIPHI2 =e Ure 

FePHI2 =e ie 

PSPHTeu S35 "0ie 

LE (ISW3.eLTeleANDeISW4.LT2«1) GO TO 30 
SPHI3¢1) =0. 

SPH] 3(2) =U. 

SPHI4(1)- =0. 

SPHI4(2) =0. 

PHI3 = . 

PHI4 = De 

OPHI3 = Ue 

WPHI4 = Oe 

ALP ATS Sais 

FePHI3 = we 

F3PHI3 Si Wie, 

PUPA S: Ss" Ore 

FeEPHI4 = Oe 

F3RPHI4 ee Dig 

TPRGESWS ek Weebly VeAND es: TSW4t ee Oise: AGO Omsi0 
SrHTS(1) =, 

SPHIS5(2) =0.4 

SPHI46(1) =0. 

SPHI6(2) =0-. 

PHIS = Oe 

PAE" She 

DPHIS = Ge 

DPHI]6 = Ge 

PLP A LSesi Oe 

FePHIS =" Oils 

EP SPR MS: =o Gre 

PL erhGs =) 10:6 

FeEPHI5 = Ue 

PSPHh6s =: Oh6 
LRSGheelibw2) G02 hOmeal 
SPHI1(IPT-2) = FIPHI) 
SPHIMGEP he lias ikd Pili 
SPHI1(IPT) = F3PHI1 
SPHIecipyec) = FiPHTe 
SPHT2(IPT"“1) = FerHi2 
SFHI2(IPT) = F3PHI2 


SPHE IMAL T+) 
SPHi2 (iP d-e)) 
OPH1) 


Leet) ) SSP Che ie n= 


2e*SPHI1 (PT) 
20*SPHI2(1PT) 


= Seite 


=e S Pid Weare) eee 
=(lle/(6e#TINT) ) #SPHIL(IPT+1) 
(le/(3e%TINT)) #SPHI1 (IPT=2) 


DPHI2: =C)1le/ (66# TINT) O4ASPHEACl Phen) 


Le? CLINT) Sore le Ge anos 


CL DN Me iS 
-(3e/TINT) #SPHI1 (IPT) 


~(3e/TINT) *SPHI2(IPT) 


(eA (Set PINT) *SPHI 2:Cle haz) 


+ 


+ 


PHI] = SPHI1(IPT+#1) 
PHI2 = SPHI2(IPT#41) 
FIPHI1 = SPHI1(IPT=1) 
F2PHI] = SPHI1(IPT) 
F3PHI) = SPHII]1(IPT+1) 
FIPHIe = SPHIe(IPT=1) 
FePHI[2 = SPHIe(IPT) 
F3PHI2 = SPHIe2(IPT+1) 


IF (1Sw3elLlTeleANDe L[SW4eLlTeol) 


94 


GO TO 20 


(TINT##2.) #DDPHI1 
(TINT##2.) #ODPHI2 


(3e/(2 


(3/42 


TA% 
77% 
Tt 
79% 


har te 


|| anes 
| hee at 
1} att 
84% 
| Qty 4 
| At 
As 
| B38 
| AQ st 
Y Ge) s 
Q]% 
9e% 
G 4% 
oo 
I gue 
96% 
9/* 
| Qbade 
| 99% 
oo 
1a 1% 
1oew 
] 0 34+ 
|) 4 % 
}Ooo% 
oes 
a7 + 
104% 
|] No% 
L] it 
1ll* 
let 
j113# 
14 
hee 
glo* 

117% 
Wise 
114% 


eu 


SPH PS CIe T—2) 
SPHISGCIP 1 =1) 
SPHISCIPT) = 
SPHI4(IPT=2) 
SPHD4 CLP T=) 
SPHI4(IPT) = 


= FIPHI3 
= F2PHI3 


= F2PHI4 
F3PHI4 


SEausChPT 41) = 2etSPHlatiry) =" SPHTS(IP Tel) * (TINT ##2.)400PHES 
SPHT4¢ CIPT*1) = 2e*SPHIG(IPT) = SPHIG(TPT=1) + (TINT##2,) #DDPHIS 
OPHI3 =(Lle/(G6e#TINT) )¥SPHI3(IPT*#1) = (3-/TINT) *#SPHI3(IPT) + (3e/(2 
ret NT) ) #SPHIS(IPT=)) 
PHT = (lle/7 (Oe*TINTI)PYSPHIT4(TPT+1]) =(3e7TINT) #SPHIG(IPT) © (3e/(2 
VetTINT) )*SPHI4(IPT=1) 
SPHIS(1LPT +19 
SPHI4(IPT+#1) 


PHS «= 
PHI4 = 
EaPHT3 
FePHI3 
F3PHI3 
FIlPHI4 
FePHI4 
F3PHI4 
IF (1Sw3 


SPH1SiChPT<2) 
SPATS(iPt=1) 
Srinlo tl Pi): = 
SPHI6(1IPT=e) 
SPHI6(IPT=]) 
SPHI6(IPT) = 
SPHIS(IPT*1) 
SPHI6(IPT41) 


nou uo wou i 


SPHLSCPP T=9)) 
SPHIT.3 ( EPT) 
SPHIS Cre Ts 1) 
SPHI4¢(IPT=1) 
SPHI4(1°T) 
SPHI4 (IPT?)) 


lite  eANDs 
FIPHI5 
F2ePHI5 


3PH15 


Thun i 


-3PHI6 


FIPHI6 
FePHI6 


= (Le/S(3e*TINT) )#SPHIS(IPT=2) 


= (le/(3e#TINT) ) #SPHI4 (IPT=2) 


[Sw4 eEQ. 1) GO TO 20 


Ze*SPHIS(IPT) = SPHIS(IPT=1) + (TINT##2.)*#DDPHID5 
Ze*SPHIO(IPT) = SPHI6(IPT=1) + (TINT##2.) *ODPHI6 


MDPHIS =(lle/(Oe#TINT)) #SPHIS(IPT #1) =(3e/TINT) #SPHIS(IPT) + (307(2 
Le®TINT)) #SPH15(1PT=1) 
NPH16 =(Lle/(Oe#TINT)) #SPHI6(IPT#1) =(3e/TINT) #SPHIG(IPT) * (30/(2 
Le#TINT)) #SPHI6(IPT=1) 
SPHIS5 (IPT#1) 
SPHI6 (1PT#1) 


PHIS = 
PHI6 = 
FIPHI5 
FePHI5 
F3PHI5 
FIPHI6 
FePHI6 
F3PHI6 
CONTINU 
RETURN 
END 


ub OF COMPILATION: 


3 


SPHES CIPT=)) 
SPHIS(IPT) 
SPHIS (TP T+) ) 
SPHTIOCIPT <1) 
SPHI6(IPT) 
SPHI6(IPT+]) 


= (be/ (3e8T INT) ) FSPHTS (IPT <2) 


~ (Le/(3-#TINT) ) #SPHI6(IPT=2) 


NO DIAGNOSTICS. 
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’ 


—) 
+ ~ 
: c 4 


Y: 
Se ar 


Y 


— 
De 


Te nO OT 
g ~ 5 ¢£ as 


Die CERO OO. @ Orel 


3b tt th de 


te tt tt se 


st te 4b St 
$b 4d 44 3} 


57 


17 


43 
83 


158) 


109 


205 


SUMBPOUTINE INVER (AsNe Boo DET) 

ee TNVER INPUT (AgsNoBoMeDET) 
Bi Mee Xe oe Al (eee )uYia + VAC Cli 93) bZ 
Merk UX eA ie 2 Ne se) ANCA re) Si) PZ. 
MES oul Kee ANOS CRY +2 VAN (C3 913) 2 
N = NUMBER OF EQUATIONS 


BiCdi ol) + Bil 2) 
B(2el) * Blase) 
B(3el) + B(3e2) 


wou a 


m = MUMRER OF COLUMNS ON LEFT SIDE = 8B( I) 
N AND M MUST BE DEFINED IN CaLLING PROGRAM IE. CALL INVER(As 39 
OFT = VALUE OF DETERMINANT BePesDET) 


SET HIMENSILON LIMITS EQUAL TO NoM 


#% TNVERQ UUTRPUT (86¢DET) 
Paige da eh We 
Yea cre sli), 

SESE Sg: ]) 


T DOES NOT EQUAL TIME IN THIS ROUTINE 
DIMAFNSTON ACN@N) @B(Nom) eIPVOT (25) e INDEX (25925) PIVOT (25) 
EQUIVALENCE (ITROWsJROW) ¢e (ICOL + JCOL) 
SNES haute 
OPT i= Dien 
IPVOT (J) =9 
NO 135 [=laNn 
Tee 
DOW'S = )oeiN 
IF (TPVOT( J) =1) 1399913 
DOD'S “"KaseIN 
IF (IPVOT(K)=1) 43923041 
IF (ABS (T) TABS (A(U9K))) 83923923 
JROw=J 
LGOQIE=K 
Tas AN, chtgulhs) 

CONT |] NUF 
CUNT INUE 

LPVOTECEECOL)-sLRVOT LEO aa 
IF (LROw=ICOL) 739109973 
DET==DET 
NO le tsleN 
TIA (JTROWeL) 
A(TROwW9L)=A(ICUL eL) 
A(ITCOLeL)=T 
IF (M) 1094109933 
DQ 2@ L=1lemM 
T=H(TROWeL) 
R(TROWeL) =H (ICOL eL) 
6(ILCOLsL)=T 
INDEX (1Llel} =I ROW 
INDEX (I 62) =ICOL 
PIVOT(I)=ACICOL +I COL) 
DETHENETHPIVOT (I) 
A(ICOL«ICUL)=le 
DOM ZO Sis lieiN 
A(ICUOLseL) =ACICOLeL)I/SPIVOT (1) 
TF (“@) 34723475366 
MOM Sie? Vise 
B(ITCOLeL) =B8(ICOLeL)/SPIVOT(L) 
POMLSS. Lhe asiN 

IF CEIHICOR 2lel35e21 
T=A(LTeJCUL) 

SOE ts] COLI. 

OG So L=ileN 
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6 () + 689 A(LITeLIHA(LIoL)-AC(ICOL sL) #T 


6) % TRUM): “1356-1 35618 
62% 18 DO 6&6 L=leM 
64% 68 B(LTeLIHB(LIeL) eB8(TCOL eoL) #T 
64% 135 CON] [NUE 
65% Cece lo 3 Ya en 
6A | =N=T+) 
Ay IF (INDEX (Le 1L)SINDEX(Le2)) 1993019 
Hi 19 JROW=INNEX (Ll) 
AY s JCOLSINDE* (Le2) 
Tut DU 549 K=lL9N 
Telere T=A (K 9 JROW) 
TP A(KeJROw) ZA (Ke JCOL) 
T 3% A(KeJCOL) =T 
T4% 549 CONTINUE 
75% 3 CONTINUE 
Tat B81] RETURN 
77% END 
END OF COMPILATIONS NO DIAGNOSTICS. 
1% SUHROUTINE STRSLPC(IPT >» TIME) 
et beeG Tet sot. 0) GO TO 1000 * 
3 COMMON/C10/CB4 9 CB7 9 C310 .CB139CB169CK3eCB6eCB9eCB125CB15 
4 it COMMON/SCILI/SISW28 » ITR » ICOUNT 
Si COMMON /C30/PHI] sPHI2@sPHI] 39PHI4ePHIS»PHI6 
he COMMON/C50/CBl1 »9CB29C359CB89CB11,CB1l45CBl17 
[* COMMON /CYO0/DPHI1 sDPHI29DPHI3sDPHI4eDPHI5eDPHI6 
pte COMMON /C1LOO/DDPHI1 sDUPHI2sDDPHI3»DDPHI4sDDPHIS5eDDPHI6 


oY: 


COMMON/CLIOSYACC e+ XACC 
COMMONSCLADNSVAL oe VXCoVX39VX49VX5SoVKGOOVYL SO VYCOVYS9VY49VYSeVY6 
COMMON/SCLID/SDVAL eDVXC a DVAZSIDVX4 oD DVXSeDVXO69DVYI] SDVY2eDVY3eDVY4s 
LOVYS es DVY6 

COMMONSECILEOSYRPOS ee KRPOS 

COMMON/SCLDOSO/SYVEL oo XVEL 
CUMMON/C160/C02 C04 sCD6eCUAsCDI»sCD12eCD14 

COMMONSCIIOSZF Z 

COMMON/C1B0/F e) 

CUMMON /CL9OO/ST Swe 

COMMON/C2ALOSALPHA «DELUVEL 

COMMONS C220/DELTAD 

COMMON /CeE30/1END 

COMMON/SCP40/TINT 

COMMON/C2D50/DEL TAM 

COMMONS CPOUSXK 

CUMMON SC32O0SISW3eTSWS 

COMMON /C360/DEL TA 

COMMON/C370/DELD 

COMMON SE 3R0/NPTS11 

COMMON /C405/ ITSWeee ISwW235sTSW24,1SWS 

CUMMON/SC430/ISW14 » ISwWe? « ILPCK » NUMRER 
COMMON/SC440/CLONG2e eo AlIME 

COMMON/SC450/FRICT » ALFAM 

COMMON/SC460/XPHI 1 © KPHI2 »© XOPHI1 « XDPHI2C » XALPHA 
COMMON/SC4HTOSAXVX1L op AKAVY Lo XDVAL SO XOVYL oO XODF IL es XODFI2@eXXPHI1oXDELTAs 


PATINT 


COMMONSC4RO07XF2Z 9 XF 9 XD 9 XFRICT » XALFAM 
COMMUN/SC4E9Y0/XCLONG 9 XTIME 

DIMENSION FRICT (14) «QL FAM(14) 

DIMENSION XK (14) 9 XALPHA(14) 

SIMENSTON XFZ(014) © XF (14) »XD (14) o@XFRICT (14) oXALFAM(14) 
DIMENSTON = ALPHA(14) eYACC (500) » XACC (500) eYRPOS (500) sXPOS( 500) » 


LYVEL (500) sXVEL (500) 9F2(14) oF (14) 9 (14) 


DIMENSION CALFA(14) 


PAT S060 
PHI? =U.U 
PHI3 = 0.20) 
PHI4 = 0.0 
PRIS 's.°0 <0 
PHI6 = ed 
PHI] = 020 
OPHI2 = Vel) 
OPRPAHT3 = O0e0f 
DPHIG4 = OeD 
YPHI5S = et 
NPHI6 = 0e0 
DDR Tl c=4) 060 
ODDPHI2e = Ued 
DDPHI3 = 020 
DDPHI4 = 020 
HiDP MTS. =) S670 
DDPHI6 = Oot) 
0,8 eee Ura) 
VKXe = 0.20 
WRB ane) 
VE T= 0G 


98 


56% 
67% 
OKs 
64 tt 
Tus 
Tela 
Tee 
Thott 
74% 
T5% 
TV 2% 
17% 
THe 
T9% 
But 
Qs 
fU Pr 
R33 
Bat 
A5% 
B6% 
B7# 
ARi 
NOx 
Que 
Q|* 
9° 
oe as 
Gut 
95% 
96% 
97% 
Ort 
ag 
100% 
NOs 
102% 
103* 
104% 
195% 
106% 
197* 
198% 
109% 
119* 
lll¢ 
112% 
113+ 
114% 
115# 
116# 
117# 
114+ 
119% 
120+ 
121+ 
122% 


40 


1000 


4] 


42 


os 
=< 
th 
WoW a ab om ah aa 
° 


Co 
<= 
—< 
_— 
Ob ea att 


(OAEG OP -TF f=3 +] 
ALPHA(I) = 
CONTRL = - 
RETUR*Y 

XG XPSICLE TT) 
Va > ViPAStPe)) 
VIXOE => XVERIGIPT) 
VAYele = oY MEME GP 1) 


X2 = Xl = CR3B * COS(PHI)) 
Yiete ty) =tCRS) #0SIN(PHIY) 
VX2r=s VXIe sEBS: 4 DPAHIT]«* 
VVi2ue VY lO SERS! # DEAT] “+ 


OV = XACEKTPT) 

DIVYA =" VACEICEE Nl) 

NDTIME = TIME = PTIME 
IF(ITR eEQe | eANDe [5wW28 
DVX1A XACC(IPT+1) 

DVY1A YACC(IPT+#1) 

50 [0 42 

CONTINUE 

DVXTA = -XACCCIPT) 

DIVVaAY = YACE CLP T) 
CONTINUE 

YWVX1 = VAl # COS(PHI1) ¢ 
YWVY] ==VA] SIN(PHIi) + 
YwVX2 = vXe * COS(PHI2) + 
YWVY2 ==VX2 * SIN(PHI2) + 
TRACTS W3r ily 1s se AND. TSw4 


x 


SR =s Kee = GBS! Y Fi. COSMPAT 2) 
YSRSryi2r =V1G86) © ehiSTAMCPH TZ) 
XG HONK Si =4 ICBOF &'_- COS (PHIS3)) 
Y4e =HY 3 =" CB9 % SIN (PHI3) 


VXS) =) Voc28 +0 CB6 
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eA DPHT 2s 4 SINCPHI2) 


- CB4 # COS(PHI2) 
- CB4 # SIN(PHI2) 
SIN(PHI)]) 


eF Q's 1) GO TO 4] 


YA ! SUNUP HTT) 
VY1l # COS(PHT1]) 
VY¥2 #* SIN(PHI2) 
V¥2 # COS(PHI2) 


eile 1h’ )7'GO TO 30 
= Caves COS Ce 1 3S) 
=e CBT) #* SUN CUPHLS) 
- CB10# COS(PHI4) 
- CB10#* SIN(PHI4) 


+ CB4¢:* DPHI2 # SIN(PHI2) 
COS(PHI1) = C84 # DPHI2 #* COS(PHI2) 


+ CB7 * DPHI3 # SIN(PHI3) 


|] 36% 
137% 
} 3es% 
} 3 ot 
141; 4 
14) 3 
142% 
14 3% 
] &4% 
145% 
146% 
147% 
] Gere 
149% 
150% 
1Si* 
loe* 
L53%* 
j 54% 
155% 
156% 
Lo/% 
15+ 
159% 
161% 
161* 
162% 
163% 
164% 
165+# 
166% 
167% 
68% 
159% 
L70# 
171# 
172% 
173% 
174% 
175% 
176% 
ik 77% 
1] 7R% 
179% 
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20 
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] 


} 


| 


| 


1 


) 


| 


1 


] 


] 


— 


WRITE (O020) 


VY3 = VY¥2 - ChoH * DPHI? * COS(PHI2) = CB7 *# DPHI3 * COS (PHIS3) 
VX4 = VX3 + CBD * DPHI3 * SIN(PHI3) + CB10# DPHI4 # SIN(PHI4) 
VY4 = VY3 = CB9 * DPHI3Z * ee ae - CB10# OPHI4 * COS(PHI4) 
DVXP = NVAI A+ CRI #(OPHI1*##2 COS(PHIi) + DOPHI1] * SIN(PHI1)) 
+ CR4 #(DFHT2##2 * COS(PHI2) + DDPHI2 * SIN(PHI2) ) 
DVY2 = DVY1A+ CB3 #(DPHI1##2 * SIN(PHI1) = ODPHI1 * COS(PHI])) 
+ Ch4 #(DOPHI2##2 * SIN(PHI2) = ODODPHI2 * COS(PHI2) ) 
UDVX3 = DVX2 + CHO #(UPHI 2H? % COS(FPHI2) + DDPHI2 * SIN(PHI2) ) 
+ CR7 #(DPHI3*#? # COS(PHI3) * DDPHI3 #* SIN(PHI3) ) 
DVX4 = IWVAS + CRO #(DPHI3##2 # COS(PHI3) + DOPHI3 * SIN (PHI3)) 
+ CKLO*# (DPHI4##2 # COS(PHI4) + DOPHI4 #* SIN(PHI4) ) 
DVY3 = DOVY2 + CKO #(OPHI2##2 # SIN(PHI2) DDPHI2 * COS(PHI2) ) 
+ CR/7 #(DPHI3*##? # SIN(PHI3) = DDPHI3S #* COS(PHI3)) 
OVY4 = NVY3 + CBO #(DPHI3%#2 * SIN(PHI3) DDPHI3 * COS(PHI3) ) 
+ CRIO#(DPHIG*#%#2 % SIN(PHI4) = DODPHI4 * COS(PHI4) ) 
YwVX3 = VX3 * COS(PHI3) + VY3 #* SIN(PHI3) 
YWVXG = VX4 # COS(PHIG) + VY4 #* SIN(PHI4) 
YwVY3 ==VX3 * SIN(PHI3) * VY3 # COS(PHI3) 
YWVY4 =-VX4G4 % SIN(PHI4G) + VY4 # COS(PHI4) 
IF (1Sw3 el Te 1 eANDe ISW4 2EQe 1) GO TON 30 
XS = X4 |= CRI12#* COS(PHI4) = CB13% COS(PHIS5) 
YS = Y4 = CRie* SIN(PHI4) |= CB13% SIN(PHIS) 
X6 = XS = CRI15* CUS(PHI5) = CR16% COS(PHI6) 
Yerear YS) =—=aCR St SINGPHIT SIPs EBT6 SUNiGe a6?) 
VX5 = VX4 + CB12% DPHI4 * SIN(PHIG) + C313% DPHIS #* SIN(PHIS) 
VY5 = VY4 = CBl2* DPHI4 # COS(PHI4) = CB13# DPHIS #* COS(PHIS) 
VX6 = VX5S + CBI1S5* DPHI5 * SIN(PHIS5S) + CR16*% DPHI6 * SIN(PHI6) 
VY6 = VY5 = CB15*# DPHI5S # COS(PHI5) = C8316* DPHI6 * COS(PHI6) | 
DVA5 = DVX4 # CH) 2#(DPHI4G##2 # COS(PHI4) + DOPHI4 #* SIN(PHI4) ) 
+ CHL 3% (DPHI5S##2 #* COS(PHI5S) * DDPHIS #* SIN(PHI5) ) 
DVY5S = NVY4 + CB1L2#(DPHI4##2 #* SIN(PHI4) = ODPHI4 * COS(PHI4)) 
+ CH13*(DPHIS##2 * SIN(PHIS) = ODPHIS * COS(PHI5)) 
DVX6 = DVAS + CR1S*#(DPHIS##2 * COS(PAHI5) + DDPHIS *#* SIN(PHI5)) 
+ CR1L6*# (DPHI6*%#2 #* COS(PHI6) * DOPHI6 * SIN(PHI6) ) 
DVY6 = DVYS + CH] 5*#(DPHIS##2 # SIN(PHI5) = DDPHIS * COS(PHI5)) 
+ CRI6O*# (DPHIT6%*#2 * SIN(PHI6) = ODPHI6 *# COS(PHI6) ) 
YwVK5 = VXH * COS(PHI5S) + VYS * SIN(PHIS) 
YwVYS =—VXS * SIN(PHI5) + VYS # COS(PHI5) 
YWVA5 = VAG * COS(PHI6) + VY6 #* SIN(PHI6) 
YwVY65 ==VA6 * SIN(PHI6) + VY6 #* COS (PHI6) | 
CONT TINUE 
DELTA =DELTA + DECDEL 
TRAKABS (DEE TA Ske .DEE TAM GOP TOrahG | 


FORMAT ( 18H STEERING ANGLE OFF704934H RADIANS*9EXCEEDS MAXIMUM ALL | 
OWED (F7e¢4s9H RADIANS) //) | 
IF ( AKS(DELTA) eGTe DELTAM ) IFND = 1 

LF AC aHEND, iE Ges Jn RESURN 

DEISTA J="DEISEAM 

CONT INUF 

[RiGG@olSweee ce Osu Li iGOr NOs! 

ALPHA(1) =ATAN((YWVY1*C831 #* DPHI1)/(YWVX1+CD2 * DPHI1)) = DELTA 
ALPHA(2) =ATAN((YWVY14C31 # DPHT1)/(YWVX1=CD2 * DPHI1)) = DELTA 
ALPHA(4) =ATAN((YWVY1=CB2 * OPHI1)/(YWVX1*CD4 * DPHI1)) 

ALPrHA(4) =ATAN((YWVY1"CB2 # DPHI1)/(YWVX1=CO4 * DPHI1)) 

ALPHA(5) =ATAN((YWVY2=CB5S # DPHI2)/(YWVX2+CD6 * DPHI2)) 

ALPHA(6) =ATAN((YWVY2=CBS # DPHI2)/(YWVX2=CD6 * DPHI2)) 


DELTAsDELTAM 
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PRo* 
18] %* 
182% 
183% 
184% 
165* 
1Rat 
1a7% 
L8k* 
189% 
190% 
LONE 
192# 
}3° 4K 
] 94% 
195% 
196% 
197% 
19R% 
199% 
200% 
en ys 
20e% 
eau 
21) 4 
205% 
206% 
207% 
Cbs 
Dat 
rans 
211* 
212% 
el3* 
214% 
2l5* 
2lo* 
Cll 
ele* 
el1at 
een 
22l% 
222% 
223% 
224% 
225% 
2eb* 
227% 
Cent 
2ege 
230% 
23)* 
237% 
233% 
234% 
235% 
236% 


i 


V2 


31 


56 


58 
62 


57 


60) 


GOAWO! tke 
CONT INUF 
ALPHA (1) 
ALPHA (2) 
ALPHA (3) 
ALPRA(4) 
ALPHA (5) 


1CUS(PHI1L=PHI2) 


( YwVvYl 
ALPHA (1) 
( YwVvYl 
ALPHA (3) 
( YwVX] 


2COSWPHIY=PHI2)) 


= CR4 * 


+ CBl # DPHI] ) 
- CK2 # DPHT] ) 


#* SIN(PHI]=<PHI2) 


4 YWVX) 


4 YWVX] 


+ 


(YWVY] 


DPA T2 f= vCB5>V i DPHI2) 


= -DEBTA 


= €834e DPHII 
(YWVX] # 


ALPHA(6) = ALPHA(5) 

CONT TNUF 

HE CESW3) seit Tet il 2 ANDs, TSWS clh.fevl) GO TOy.31 

ALPMA(7) =ATAN((YWVY3=CBB * OPHI3)/{(YwWVx3*CO8 * DPHI3)) 

ALPHA (&) =H=ATAN((YWVY3=CBR * DPHI3)/(YWVXS"CDB * DPHI3)) 

ALPHA(9) =ATAN((YWVY4"CB11* DPHI4)/(YWVX4*CD10 * DPHI4)) 
ALPHA(1L0)=ATAN((YWVY4"CB11%* DPHI4)/(YWVA4=CB10 #* DPHI4) ) 
PCRS WS: tls Le teANDs PSWS 16EQs.eL) “G0. TO SI 

ALPHA (LI) =ATAN((CYWVY5=CB14* DPHIS)/(YWVX5*¢CD12 * DPHI5)) 
ALPHA(12) =ATAN( (YWVY5=CB14% DPHI5S) /(YWVX5"-CBl2 * DPHIS5)) 
ALPHA (13) =ATAN((YWVY6"CKH17* DPHI6)/(YWVX6*CD14 * DPHI6) ) 
ALPHA (14) =ATAN( (YWVY6=CB17# DPHI6)/(YWVX6=CB14 * DPHI6) ) 
CONT TNUF 

Wi? “3:6; 4? 4a lite 14 

RCI SANK OL Pe DEL TAD 

KORA i= DELTA 

XVX] = vXl 

AVYL = vYl 

KOWOOH SV 41 

KOWYE. CS VY 1 

XDOFI1 = DOPHI1 

XDOFI2@ = DODPRI2 

XXPHI] = PHT] 

XE == 7 PENT 

XCLONG = CLONG2 

XTIMF =ATIME 

IF (1SW28 eF Qe 0) GO TO #2 

XPHI1 = PHI] 

XPHI2 = PHI? 

XDPHI] = DPHI1 

KOPHI2@ = DPHIe2 

DOSES) «= 1.14 

XALPHA(I) = ALPHA(1) 

CONT I] NUE 

OO Sy eds tan rel 

XE Zul) SF Za( 1) 

XE IN = FOL) 

MO Te) VS S1.6 1) 

XERGGOMsis FRILCT (1) 

XALFAM(I) = ALFAM(T) 

CONT INUE 

IF (I1SwW28 eLTe 1) GO TO 60 

LraGue.lenetates 3), GO: TO: 60 

EMG. ae Late AND eo OTIMEs oh Te 0400104 GOnT0 55 

CONT TINUE \ 

IF (NPTS11 el Ee IPT) GO TO 52 

TRACI SW2s8 e621); GO. T0052 

IF (1SW232EQe-2) GO TU 53 
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237% 
CP In* 
ost 
c40* 
24)% 
242% 
Pare 
C44 
Cab 
P46 
A& Ts 
Cane 
244% 
oot 
251% 
eod% 
2O4* 
254% 
AD5% 
256% 
eat 
Photek 
Cou 
COI 
26] %* 
262% 
263% 
CO4t 
265% 
Pb 
Plow A 
COHt 
2O9% 
CTs 
271% 
2T2* 
273% 
eT4 
275% 
OTne 
277% 
CTRY 
2Ty* 
2an* 
281% 
28 P% 
26 3% 
cB84% 
285% 
286% 
287+ 
288% 
eBy% 
Cou 
29)]+ 
29e% 
293% 


IF (1SW5 
IF (1SW5 


eEQe. 0 eAND. ISW24 
eile Y) eANDe Isw24 


53 CONTINUF 


IF CTIME 
L=1e¢14 


52) Dosa) 


eEQ. 
eEQ. 


= GONTRE 2 Sis 52s52 


SUPGALFACT) © = AERA) "Sea 27, 


THETA] =4ATAN(CVYL/JVX1))° % S7.27 
THETA2 =(ATAN(VYA/VAE)) * 57227 
THETO3 =(ATAN(VY3/VX3)) * 57,27 
THE TAS s(ATAN(VY4/VX4)) % S7.27 
THETAS s=(ATAN(VYS/SVX5)) * S7.?7?7 
PHE TAG = (CA TANUVY EZ XO) ae S75 2i7. 
COE TOS OBIT An itm Sifrereat 

GPT 1h ese Si reat 

GE 2 =-PH hats §S:7 S27 

Chl3e= PHTSe 75727, 

ChRGHS PAT eke Si ee? 

CRIS@=a PRT Smee Sir a27 

CFIO6 SUP HTo = St e227 

EEPet=ayeR hes oCr 2 

P23 s=richli2'-=Ger3 

FI340s) CFIA>= CRIS 

FI45 = CFI4 = CFI5 

FLS6 = CES v="6F 6 

IF (ISw2.Gle) GO TO 1115 

WRITF (6611009) 

1100 FORMAT ( 76H\ 

] AVDS=3 vost UTRPUT /) 

ISwe = |] 

KE TURN 


1115 WRITE (691120) Xle DPHIL sFZ(1) sCALFA(1) 9F (1) 9D(1) 

1120 FORMAT (18H TIME = x-POS=F7.2913H FT OMG-1=F603915H R/S 
1OAD=1 =F7e¢0e¢14H LK SLPAN=] =F602014H DEG SDeFC 1=F7e0913H LB 
PefCOl=F Tels 3HslB) 

WHITE (661130) TIMEs VAL9NDPHI2eFZ(2) sCALFA(2) 9F (2) 9D (2) 

1130 FORMAT (1XFSe2912H SEC X=VELEF7e2913H F/S OMG=2=F6e3915H R/S 
LLOAD=2 =F7e¢0914H LB SLPAN=2 =F602914H DEG SDeFC 2=F7e0913H LB 
CK eFC C=FT7el 43H L8) 

WRITE (691140) DVX1eDPHI39FZ(3) sCALFA(3) oF (3) 9D(3) 

1140 FORMAT (18H X-ACC=F7e2913H F/SS OMG=3=F603915H R/S 
1OAD=3 =FleVel4H LB SLPAN=3 =F6.2914H OEG SDeFC 3=F7.0913H LB 
2eFC 3=F 7e1e3H LB) 

WRITE (601150) Yl eDPHI49FZ(4) sCALFA(4) oF (4) 0D(4) 

1150 FORMAT (18H Y=POS=F7.2913H FT OMG=4=F6.3e15H R/S 
1OAD=4 =F7eUel4H LR SLPAN=4 =F6e2914H DEG SDeFC 4=F7.20913H LB 
2eFC 4=F7010¢3H LR) 

WRITE (601160) VY19DPHI5eFZ(5) sCALFA(S) 9F (5) 91) (5) 

1160 FORMAT (18H STEERING Y=VEL=F7¢2913H F/S OMG=5=F603e15H R/S 
LOAD=5 =F7.e0014H LB SLPAN@=5 =F6e2014H DEG SDeFC S=F7-e0913H LB 
2eFC S=F7e1le3H LB) 

WRITE (601170) DVY1eDPHI60FZ(6) sCALFA (6) oF (6) 9D (6) 

1170 FORMAT (18H ANGLE= Y-ACC=F7.2913H F/SS OMG=6=F6.3915H R/S 
LOAD=6 =F7e0914H LKB SLPAN=6 =F6.2914H DEG SDeFC 6=F720913H LB 
2eFC 6=F7e1¢3H Lb) 

WRITE (651180) CDELTAsCFI1 sDDPHI1 oF Z(7) sCALFA(7) 9F (7) 9D(7) 

1180 FORMAT(1XF6.e29 LIHDEG PHI=-1=F7.2s13H DEG ALP=1=F6.3915H R/SS 

LOAD=$7 =F7e9014H LB SLPAN=7 =F6.2914H DEG SDeFC 7=F7¢0913H LB 
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—<o 


a 
| 


Hi 


| 294% 


AekhC -7=F Hel e3H LB) 
22a5% WRITE (691190) CFI2@eDDPHI20FZ(8) «CALFA(S) oF (8) 9D(8) 
296% 1190 FORMAT (13H PHI=2=F7.2913H DEG ALP=2=F6.3915H R/SS 
29T* 1OAD$68 =F7e0914H LB SLPAN=8 =F6.2014H DEG SDeFC 8=F720913H LB 
| 29n% AokhG, S=F fie] 5 SH lB) 
299% WRITE (691200) CFI3sDUDPHI39FZ(9) sCALFA(9) oF (9) 90(9) 
300# 1200 FORMAT (13H PHI=3=F7.22913H DEG ALP=3=F6e3915H R/SS 
30)% JOAD=]$9 =F7e¢eN514H LB SLPAN=9 =F6.2014H DEG SDeFC 9=F7e0913H LB 
30e% 2eFC G9=F72193H LB) 
30 3% WRITE (691210) CFI4sDDPHI45F7(10) eCALFA(10) oF (10) 6D(10) 
304% 1210 FORMAT (J8H PHI =-4=F7,.2913H DEG ALP=4=F6.3915H R/SS 
305% LOAD=$10=F7¢0s14H LB SLPAN=10=F6.2014H DEG SDeFCIO=F7.20913H LB 
304% Behe hOHar Hee sh EB) 
| 307% WRITE (601240) CFISsDUPHI59FZ(11) sCALFA(11) oF (11) 0011) 
30% 1240 FORMAT (18H PHI-5=F7.2013H DEG ALP=5=F6.35815H R/SS 
1 309% JOAVD$1L1=F7e¢0014H LB SLPAN=11]1=F6.2014H DEG SDeFCLI=F7e0e13H LB 
BUS Arai lolk=Fifee dest, LB.) 
ays WRITE (691250) CFIOsDDPHI60FZ(12) sCaLFa(le) oF (12) sDlie) 
312% 1250 FORwAT (18H PHT -6=F7.2913H DEG ALP=6=F6.e3915H R/SS 
313% LOAD=le=F7e0e14H LB SLPAN=12=F6.2014H DEG SDeFCIL2=F7-0013H LB 
314% 2eFCle=F Tels3H LH) 
nolL o* WRITE (6591260)FZ(13) oCALFA(13) oF (13) .0(13) 
| 31h* 1260 FORMAT (44Xo— 15x 
| 317% LOAD=13=F7¢0e14H LB SLPAN=13=F6.2914H DEG SDeFCI3=F7e0s13H LB 
318% 2eF C1 3=F 7e2153H LB) 
319% WRITE (691270)F27(14) sCALFA(14) oF (14) 6D(14) 
320% 1270 FORMAT (44Xo 15H 
321% LOAD=$14=F7e¢00e1l4H LB SLPAN=1L4=F6.2014H DEG SDeFCI4=F760913H LB 
32e% BaP OVeery] ss ls SH LR) 
Boe 3 WRITE (691220) FIL2oF le3eF I 34sF1459F 1569 THETAL»s IHETA2s THETA39 
324% }THETAYe THE TASe THETAG 
| 325* 1220 FORMAT (14H PHI12=F7e¢2013H DEG PHI 23=F6.2e)]5H DEG 
326% VHI34 =FTe2.14H DEG PHI45 =F6O.20e14H DEG PHIS6 =F722513H DEG 
327% CETAL =F el e4H DEGo/s138H THETA2Z=F7e¢2913H DEG THETA3=F6 
BeR% 3e15H DEG THETA4 =FTeeel4H DEG THETAS =F60e2014H DEG THETA6 =F 
329% 47e¢294H VEGs//) 
330% CONTRL = CONTRL + 0.2 
331* 5) CONTINUE 
33¢e% IF (1Sw27 el Te 1) GO TU 54 
333% IF (TSWes8 eFQe 1 e AND IPTeLTe3) GO TO 55 
334+ IF (ISW28 eEQe 1 eANDe LTRelLTe2) GO TO 55 
335% IF (ISW2R8eEQel eANDe [TReEQe2) CALL LPCK](ILPCK) 
336% 55 CONTINUE 
337% IF (ISwW2BeEQe0 eANDe I1SW5eEQel) eANDe I[SW24eEQ01) CALL LPCK1 (ILPCK 
33% IF (I1SW28eFQ.1) GO TO 54 
339% XPHI]) = PHI] 
34(.% XPHI2 = PHI2 
34] *# XDPHI1 = DPHI1 
| 342% <DPHihew= DPHL2 
343% DOMES iene eae 
344% 6] XALPHA(I) = ALPHA(I) 
345% 54 CONTINUE 
346% PTIME = TIMF 
34 7% Re TURN 
34% END) 
END OF COMPILATION: NO DIAGNOSTICS. 
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SJBZOUTINE VELACCONPTS,s TMAX) 
DIMENSION X9S0(500) » YPSQ(500) 
DIMENSION Y¥?0S(500),YVEL (500) ,YACC(500),XP0S8(509),XVEL(500). 


1XACC(500).76500)+PH2(500),xX0DT( 500) ,YDDT(500).,0Y¥(500).00¥(500) 


COMMON /CL119/ ACC, XACC/C140/YPOS »XPOS/CIS5S0/ YVEL, XVEL/C24U0/ TINT 
CIMMON/C420/THETA » PSIR + ISW12 
COM4ON/CG4Q/CLONG? ,ATIME 


FOR“MAT(1615) 

FORMAT( BFAD. 0) 

REAY(5,10) NJOTHL»WIDTH2-CLONG1, COE a ae D» TMAX 
R=a9(5,10) TBRST » TBR1L » TKR2 , TBPEN 

REA(&,9) JTSWitl ,. NOACCY , JSWi2 

WRITE(6,141) TOBRST » TRR1 « TBR2 , TRREN 

FORMATOSX,8ATBRST = »9F7,.2+7HTBRL = pF 7e207HTBR] = pF/7,2,4HTEREN = 
aUpebrartraniyae| 

WRITE(6,19)1SW41 1 NOACCY » JSWi2 4» 0 

FORMATCSX,G491SWA1 = 12,5X,9HNOACCY = 14,5X%,8HISW12 = 12,9X%, 


tt 442 = F10.497) 
CalOTH = WIDTHL + WIDTH2 
CLONG = CLONG1 + CLONG2 
CLONGA = CLONG 
WRITE(CO,20) CWI DTH, CLONG, TINT, XVEL (41) 2 TMAX 


20 FIRMATOCSX~L5HMANEUVER WIDTH 3+F6.2,6H FEET, 5X:17HMANEUVER LENGTH 


21 


ai 


L=9F7.2,64 FEET~ASX,195HTIME INTERVAL 2,F5-.2, BH SECOND, 5X» 20HINITI 
2ALW-X-VELOCITY =2F6.2s13H FEET/SECOND,//,5X,22HRUN WILL TERMINATE 
3AT .F5.2, 9H SECONDS,//) 

WRITE(6, 214) 

FORMAT(CLOXs 4HTIME + 14K) SHX=POS 13K ep SHY-POS, 1 3X, SHX-VELoL SX SHY=VEL, 
L13X se Se XeACCe 13K SHY-ACC,/510Xs SHSEC115X_) SHFEET(14X, SHFEET + 14X,6HFE 
PET/SEC110X» SHFEET/SEC210X»9HFEET/SEC2,10X,9HFEET/SSEC2,//) 

TeCTswit NEYO). CO),TO 39 

DOVDT « U.N 

VAPATHEXVEL( 1) 

nS he ie) 

X205(4) = 

KACCC 1) 

Y705(4.) 

YVELC4) 

VAGC CI) 

Teg) os) 

X°293(2) 

XVEL C2) 

KACOGC2) 

YPOSC2) 

YVEUC2) 

YACCE(2) 

CLO'NG = 

CHINTH = 

Lis ae 

PXe SG 

JEl+41 

1? (J SEN 400) G0) 10..535 

Pe(XPOS@))) Gh. CLONGL) GO Tony's 

X°OSCU)=xXPOS(1) + XVELCI) * TINT # 0,5 © TINT & TINT @edaiccun) 

Y205(U)S(CWIDOTH #* (35.0 # (CLONG##3,0) *(XPOS(Y) ##4,0) - 84.0 # 
LCSLONG##2,.0) #(XPOS(J)¢#5,9) + 70.0 # CLONG #{xPOS(JU)8#46,.0) = 20:0 
2e(KPOS(J)#4#7.0) 2) 4 CCLONG#e7,0) 

DY¥( J) = (CWIDTH * 20.0 * (7,0 #€CLONG®#3,0) #(XPOS(J)#45,0) - 
121.) # (CLONG##2.0) #(xXPO0S(J)##4,0) + 21,0 # CLONG #(XP9OS(Y)#45,0) 


AOooovooeoImMmrtreowoovnogo 


% 


TINT 


ate 
i | 
+ -4 so 

— 


cy 08 oo OO Oe ek Se 


pee 
pan 
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Re) 


47 


Cuvee 


v8 


He 


C VAR 


4n4 


55 
190 


2- 7.0 #(KPOS(J)*#6.0))) 4 (CLONG##7,0) 

DIY( J) 3(140.0 * CWIDTH » (3,0 # (CLONG#83.0) #(XPOS(J)#82,0) - 
142.9 @ (CLONG##2,9) #(XPOS(J)##3,.0) + 15,9 # CLONG #(XPO0S(y)#84,0) 
2- 6.0 #(XPOS(U)##5.0)))/ (CLONGS#7,9) 

GO TO 17 

CONTINUE 

X°SOCJI=EXPSI(CT) + XVELC LT) #® TINT + 0,5 # TINT # TINT ® xXacc(]) 

YESOCIIS(CWIDTH * (35.0 # (CLONG##3,0) #(XPSO(J) 84,0) - 84,0 # 
AC CLONG##2,0) *(XPSO(J)8#5,0) + 70.0 * CLONG #(XPSO(J)##E,0) - 20,0 
26(XPSO(CJ)##7.0) 1) 4 -(CLONG##7,0) 

DY¥( J ) = (CWIDTH # 20,9 # (7.0 #(€CLONG##3,0) #(XPSO(J)443,0) - 
124.) # (CLONG##2.0) #(XPSO(J)004,0) * 24.9 ® CLONG #(XPSO(Y)#05,0) 
P- 7.0 #(XPSO(U)##6,0))) / (CLONG##7,0) 

DOY€ J ) 8(140.9 # CWIOTH # (3,0 ® (CLONG##3,0) #(XPSOCJ)#82.9) - 
412,90 # (CLONG##?7.0) #(xXPSO(J)#83,0) + 15.0 » CLONG #(XPSU(J)#84,0) 
2- 6.60 #(XPSO(U)##5,0)))7 (CLONGHH7,N) . 

XP0S(Y) = XL1 + XPSOCY) 

VeFOstI yrs YG -# YPSO( J) 

CONTINUE 

DENOMAs 10) + CBY Cd e824 0) 

DENOMA=s MENOMA ## 90.5 
OCITIES AND ACCELERATIONS 


XVELC J ) = VPATH / DENOMB 

YVEL( J ) =(YVPATH #® DY( J )) / DENOMB 

XACC( J) Se(VPATH # VPATH » Dy(C J) # DDYC J) / (DENOMA ##2,0)) 
f+ OVOT / DENOMS 

Yaca( J) = (VPATH # VPATH # DDY( J 227 (DENOMA ##2,0) 


1 + OVOT # D¥CU) 7 DENOMB 
T= CXPOSCIJ) «iT. CLONGL) GO To 18 

Pel seQ. 4) GO TO 18 

Xi1 = XxPoas¢J) 

YuL = YPOS( J) 

X?S000) = 0.0 

YeasoCd ves 6.6 

CLONG = CLONG2 

CHINTH = WIOITH2 

IX = 4 

CONTI NUF 

IF (XPOS(J) - CLONGAI32 +33 133 

Pet +¢ 

MOL) Ge eR P Jeg) Ce TINT 

HECABS(D) Cte 0.01) GO TO 404 
YING SPEED DURING MANEUVER : 
1=-(T¢1),G7.TBRST »AND. TCl),LT,TBR1) DVOT 2 D * (TCL)I-THRST) / 
1(TB24eTBRST) 

T=(TC2).GT.TBRL «AND. TC1).LT.TBR2) OVOT = D 
1=(T(1),G7,TBR2 .AND. TEL), LT. TBREN)? MOVDT = Da(TBREN-T(1)) / 
1(TBeEN-TBR2) 

1=(T(1),G6T. TBREN) DVOT = 0,0 

VPATH = XVELC I-41) + DVDT # TINT 

CONTINUE 

GO1TOn 34 

CONTINUE 

atti ieed beet os | 

Len tike eT e225 08 2) COr TO. 404 

ESAs nae | 

Met evec ise <)) & TINT 


C STRAIGHT RUN OF 1COFT AT THE END OF MANEUVER 


Y205(K) = YPOSC)) 
YVEL(K) = 0.0 
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YACC(K) =0,.0 
XACC(K) = XACC(K=)]) 
XVEL(K) = XVEL (Kel) * XACC(K = 1) #* TINT 
IF (XVEL(K) eb Te 1) GO TO 101 
XPOS (K)=XPOS (K=1)*#(XACC(K=1) #TINT#TINT) 7 2.0 
1) + XVEL(K=1) * TINT 
CLONG3= CLONGA* 100.0 
IF (XPFOS(K) eGT. CLONG3) GO TO 10) 
ere ie ate) | 
60 TO 100 
101 CONTINUE 
J= kK 
NPTS = J 
IF (ISW11 eFQe 0) GO TO 40 
C ##H#ee ACCELERATION INPUT ## #44 
39 NPTS=NOACCY 
KK=NPTS¢1 
NO 45 T=] °KK 
45 T(I)=TINT#(T—1) 
41 FORMAT(8F 10.0) 
READ (5941) SCALEY » SCALEX » SCALEP 
READ (5041) (YDDT(I) eI=l »NOACCY) 
READ(5041) (PHI(I) sIzleNOACCY) 
DO 43 IT=l»sNOACCY 
YODT(I) = YODT(I) * SCALEY 
PHI (1) =PHI (I) *SCALEP 
43 XDDT(I)=6-0 
IF (ISW1]eEQe1) GO TO 42 
READ(5941) (XDDT(I) »I=leNOACCY) 


DO 13 I = 1»eNOACCY 
13 XDDT(I) = XDOT(I) * SCALEX 
42 D0 14 I = leNOACCY 


YACC(I) =XODT(1I) #SIN(PHI(I)) *YDOT(1I) #COS(PHI (1) ) 
14 KACC(I) =XDDT(I) #COS(PHI (IT) )-YDOT(I) &SIN(PHI (1)) 
YACC (NOACCY#1]) =YACC (NOACCY) 
YVEL (1) =0¢0 
YPOS(1)=0.0 
XACC (NOACCY4*1)=XACC(NOACCY) 
XPOS (1)=020 
00 44 I=1leNOACCY 
YVEL(I*#1) = YVEL(CI) * 065 # (YACC(I¢1) * YACC(I)) # TINT 
YPOS(I*1) = YPOS(I) * YVELCI)#TINT + O0e54#(YACC(I¢1) * YACC(I)) # 
YTINT # TINT 
XVEL (I*#1) = AVEL(I) © O65 * (XACC(I*1) + KACC(I)) # TINT 
44 XPOS(I¢#1) = XPOS(I) * XVEL(I) #* TINT + 065 #* (XACC(I4¢1)¢*¢XACC(I)) * 
1 TINT * TINT 
40 CONTINUE 
C READ VARIABLES FOR CURVES AND BANKS 
IF (ISWl2 oLTe 1) GO TO 50 
READ(5012) THETA 9» ®SIR 
12 FORMAT (2F10-0) 
50 CONTINUE 
ATIME = T(NPTS@1) 
WRITE (6022) (T(I) oXPOS(I) sYPOS(I) oXVEL(I) sYVEL (I) »XACC(I) »YACC(I) 
le I=loNPTS) 
22 FORMAT(7TXoF1L0eS5 eo BXoF lO eS oBXeF lO eS eBXoF lO sSeBXoF lO eS eBXoF10e59BXs 
1F10.5) 
WRITE (6923) NPTS 
23 FORMAT (//o5Xeo7THNPTS = oI50//) 
RETURN 
END 
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SUBROUTINE LPCKL(ILPCK) 


Co ete arte 


G 


C 


Ab 4b ab sb tt 


COMMON/C460/XPHI1] 2» XPHI2 » XDPHI1] » XDPHI2 » XALPHA 
CUMMON/SC4&IOSXVXI o9KVY 1 9 XNOVX1 eo XDVY1L Oo XDDFI1eXDDFIA@sXXPHI1>XDELTAs 
VXATINT 

COMMON/SC480/XFZ © XF 9 XD 9 XFRICT » XALFAM 
COMMON/C490/XCLONG o XTIME 

COMMON /C5S00/ISWICH 
CUMMON/C10/CB49CB79C3105CB13eCB169CB39CB6oCR9eCB1l2eCB15 
CUMMONZCAOSCMSTI 9 CMST29CMST3eCMD1] eo CMD? 

COMMONS C40O/CMT eo CMAZ1 9CMAZ29CMAZ39CMAZ4 9 CMAZ59CMALB 
COMMON/C50/C81] oC B20C85eCBBeCB11,CB146C8l17 

COMMON/C16O0/CD2 oCD4eCD6eCD8,CD10eCDl2sCD14 
COMMON/C520/C1 221 9C12Ze 

OLiMENSION ALP (14014) » AINV(14014) 9» BLP(14914) » E(14914) » 
1FZ(14) «© BRAKE (14) » ALPHAM(14) » FRICT(14) 


DIMENSION XFZ(14) oXF (14) 9X0 (14) oXFRICT(14) 9 XALPHA (14) 9XALFAM(14) 


Cat ae ge tt 


C 


C wets 


IF(ILPCK eEQe 1) GO TO 2000 
ILPCK = 1] 


2000 CONTINUE 


Co wat ae sete 


C 
C 


Tb dt th a de 


NROWS = 5 
VEE, tas eMC] 
VES oS VN] 
NVELX XDVX1] 


OVELY = XOVY1] 
DLTAEQ = XDELTA 


GEG! =—~XPHI1” =—XPHI1 a 
@2EQ = XDPHI] 

Q3EU = XDPHI] = XDPHI2 
TIME = XTIME 

PHI1 = XPHI1 

PINT = XTINT 

FIPF2 = XF(1) ¢* XF(2) 
F3PF4 = XF(3) + XF(4) 
FSPF6 = XF(5) * XF(6) 
FIMF2 = XF(1) = XF(2) 
DQZEQ = XDDFI1 

DQ@3EQ = XDDFI1 = xDDFI2 
SLAN] = XALPHA(1) 
SLAN3 = XALPHA(3) 
SLANS = XALPHA(5) 
CLONG = XCLONG 


NO 2001 I = 1914 
PRECIO = XPRECT CL): * lieS 
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5 3% 
54% 
55+ 
Sot 
57% 
SR tt 
Sot 
60% 
61% 
67+ 
5 lst 
64% 
A4i 
46% 
57% 
AK 
Ay 
TW % 
7)*# 
Te 
G3 
74% 
TS* 
TA 
77% 
Tt 
79% 
BOs 
fo 
Rew 
R34 
B4% 
BS*# 
BA t 
R7% 
BRY 
BO* 
90% 
9]* 
9P* 
G3% 
94% 
95 # 
9a% 
QO] % 
OR 
99% 
100* 
101% 
102+ 
103* 
104% 
105* 
106% 
107# 
108+ 


BRAKE(I]) = xXD(I) 

ALPHAM(T) = XALFAM(1) {| 

BZ.) s KZ) {| 
2001 CONTINUF i) 

Q4EQ = = VELX #* SIN(PHI1) * VELY # COS(PHI1) i 

QSEQ = VELX * COS(PHI1) + VELY # SIN(PHI1) } 

DU4EQ = = DVELX # SIN(PHI1) * DVELY # COS(PHI1) = Q5EQ # Q2EQ 

DQSEQ = DVELX * COS(PHI]) * DVELY * SIN(PHI1) * Q4EQ * Q2EQ i 

WRITE (6016) DQ4EQ » DQSEQ i} 

16 FORMATL1XeBHDQ4GEQ = oF 10¢4910Xes8HDQ5EQ = oF 1L0e4e//) lI 

Al = FRICT() “7 APH AMICH) | 

Ae = FRICT(2) 7 ALPHAM(2) | 

A3 = FRICT(32) / ALPHAM(3) | 

AY = FRICT(4) 4 ALPHAM(4) ij 

AS = FRICT(S) /Z ALPHAM(5) i 

A6 = FRICT(4) 7 ALPHAM(6) 

CCT= FRECT (11700380 2-AL PHAM) 4% 23 510) 

CC2= FRICT(2])7 3.0. * ALPHAM (2) #47330) 

CC3= FRICT(3)/( 320 * ALPHAM(3) ## 3,0) 

CC4= FRICT(4)/4( 340 * ALPHAM(4) #*# 3,0) 

CC5= FRICT(5)/( 320 * ALPHAM(5) ## 3,0) 

CCo= FRICT(6)/( 340 * ALPHAM(6) ## 3,0) 

CONE =: Ali FF Z.0b)2 sh Ke a eZ Ce) 

CONL> = ASS FZ(3)) + AG F704) 

CONP = AS * FZ(S) + A6 # FZ(6) 

CONX = Al # FZ(1) = A2 # FZ(2) 

CONG: =CClT¥ cE 21): ecCCes  FZ(2) 

CONN = CC3*# FZ(3) * CC4# FZ(4) 

CONR = CC5*# FZ(5) + CC6# FZ(6) 

CONZ = Cele FACl) =. -CGe# FZ2) 

Cl = CONX = 360 * CONZ * SLAN)] #4 2.0 

C2 = CONE - 320 * CONG # SLAN] ## 2.0 

C3 = CONL = 3-0 #* CONN * SLANS #4 2.0 

C4 = CONP = 340 * CONR #* SLANS ## 2,0 

X] = = (Q4EQ + C81 * Q2EQ ) / (QSEQ * QS5EQ ) 

X@ = = SLAN3 / Q5EQ 

x3 = (=Q4EQ + CB3 * Q2EQ + (CB4+CB5) * (Q2EQ-Q3EQ) * (1.0 / 

JCOS(Q1EQ))) Z Q5SEQ #* 2,0 

CPl = (1260 = (CB4+CB5) #* (Q2EQ=-Q3EQ) * SIN(QIEQ) / QS5EQ) / 

1(COS(Q1EQ) #* COS(QI1EQ)) 

CP2 = = CB3 / QSEQ = (CB44*CB5) / (Q5EQ * COS(QI1EQ)) 

CP3 = (CB4+CB5) 7 (Q5EQ * COS(Q1EQ)) 

CP4 = 1.0 / QSEQ 

CP5 = (=Q4EQ * C83 * Q2EQ + (CB4+CB5) * (Q2EQ-Q3EQ) / 


1COS(Q1EQ)) / 


C teat 


C 


C tte dt 


(Q5EQ # Q5EQ) 


ALP (lol) 
ALP (lee) 
ALP (1¢3) 
ALP (194) 
ALP (195) 
ALP(201) 
ALP (292) 
ALP (293) 


e rieeee 8 @ 
ceNncoococ 


CO.) S919 °9 o'r 
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1} 


lhii® 


rlLisaté 
Jesllesi3e 
lj4o* 
1iS* 


rel 


jli7s 


Lies 
Llvs 


ra 


eat 


| 12e8 
hi Bl 7234 


1 P4% 


leb* 
Lean 
12 /% 
1eR* 
124+ 
130% 


HY ed a 


Lae 
Ws hesre 


| 1 34* 


135% 
136% 
137# 


L3H 


139% 


140% 
14]* 
14P% 
143% 
144% 
145% 
146*# 
147% 
148% 
149% 
150% 
151* 
152% 
153% 
154% 
55% 
156+# 
SY (fs 
158% 
159% 
160* 
16] *# 
162% 
163% 


ALP lee 4) CMT * CB3 


ALP (295) = 0.20 

ALP(3e1l) = 0OeV 

AEP(3's2) = CIZZ2 

ALP (393) = = CI722 

ALE (304) = CMT * CB4 #* COS(QIEQ) 

ALP (3¢5) = CMT * CB4 * SIN(Q1EQ) 

ALP (491) = O20 

ALP (4e2) = = CKH3 * CMST1 = CB& * CMST1] #* COS(Q1EQ) 
ALP (4593) = CR4& * CMST1] # COS(Q1EQ) 
ALP (494) = CMT + CMST] 

ALP (4«e5) = 0.20 

ALP(S5el) = 0.20 

ALP (59e) = = C84 #* CMST] * SIN(QIJEQ) 
ALP (5e3) = CB4 #* CMST] * SIN(QIEQ) 
ALP (564) = 020 

ALP (595) = CMT + CMST]l 


wRKITE (6444) 
44 FURMAT (]Xes2GHF#eee MATRIX ALP(Io9J) ete. //) 
NU 2@2@ T = T»sNROWS 
Ce WRITE (6623) (ALP(I9JU) » J = LoeNROWS) 
23 FORMAT(1X95F20.10) 
Caer 
C 
C tees 


BLR(iel) = 060 

PLP(leec) = 000 

BLP(1e3) = 120 

BLP (10e4) = 020 

RLP (195) = 020 

RLP (e991) = 0eV 

BLP(?262) = = CMT * C33 * Q5EQ = CDe * SIN(DLTAEQ) * Cl # CBl /QS5EQ 
1+ (CR814CK3) #* COS(DLTAEQ) * C2 * CBl / QSEQ + (CB2-C83) * C3 # CB2 
2/ QSEQ 

BLP (293) = 020 

BLP (294) = #=CD2 * SIN(OLTAEQ) * Cl / Q5EQ + (CB1+CB3) #* COS(DLTAEQ 
1)#C2/Q5E0 ~ (CB2-CB3) * C3 / QSEQ 


BilR(2 so) “S=CMiT CBS °* GQ@2EQ = CD2 * SIN(DLT4EQ) * Cl. * x1, + (CBie 


EEBS) -*-COSCOLTAEQ) * Ce * X]l = (CB2=CB3) * C3 * XK2 


BLP (391) =-CMT * CB4 * NQSEQ * COS(QlEQ) + CMT #* CB4 * Q4EQ * Q2EQ 
}* COS(QIEG) = CB4 #* SIN(DLTAEQ) * (RRAKE(1)+BRAKE(2)) # SIN(QIEQ) 


2+ CB4 #* COS(DLTAEQ) * (BRAKE (1)+*BRAKE(2)) * COS(QlEQ) + CB4 # 
3 (BRAKE (3) +BRAKE(4)) #* COS(Q1EQ) = CB4 * COS(DLTAEQ) # FIPF2 *# 
4SIN(Q1EQ) + CMT * CK4 * DO4EQ * SIN(QIEQ) + CMT # CB4 # Q5EQ # 


SAZEO ee STNCOITEQ) “= CBS * C4 * CP) = CB6 * SIN(OLTAEQ). * PlPFe * 


6COS(Q1iEQ) = CB4 * F3PF4 * SIN(QIEQ) 
BLP(392) = CMT * CB4 * Q4EQ # SIN(QIEQ) = CMT * CB4 #* Q5EQ # 


ICOS(Q1EQ) = CB5 # C4 * CP2 + CB4 * COS(DLTAEQ) #* C2 #* COS(Q1EQ) 
eCBR1l / OSFQ = CB4 * SIN(DLTAEQ) # C2 * SIN(QI1EQ) * CBl / Q5EQ = CB4 


Se C3 COS COLEQ) # C82 7 QSEO 
BEP(3s3) = = C85 * C4 # CP3 


BLP (394) = CMT #* CB4 #* Q2EQ * SIN(QIEQ) = CB5 * C4 * CP4 + CB4 *# 


YCOS(DLTAEV) * C2 * COS(Q1EQ) 7 QSEQ = CB4 * SIN(DLTAEQ) * C2 * 
eoIN(QIEQ ) 7 Q5EQ + Cea * C3 * COS(QIEQ) 7/7 Q5EQ 


BLP(395) = -CMT # Cad * Q2EQ * COS(Q1EQ) = C35 * C4 # X3 + CB4 # 
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, se 
Lt 


Liat 
weeks 
174% 
afer se 
| 74% 
ae 
Rie 
141% 
[Re 
LR 3% 
184% 
LK % 
186% 
]&7%* 
Laue 
LAXt 
190% 
19) 
197% 
193% 
194* 
195% 
196* 
197% 
198*# 
199% 
290% 
enl* 
200% 
203% 
204% 
205% 
2064 
207% 
POH 
209% 
210% 
211# 
212% 
213% 
214% 
215% 
216* 
2) 1% 


END OF 


LCOS (DLTAEQ) = C2 * COS(OLEQ) *# xis si CRG. se SINC DET AEG): = iC eme 
COTNICOHEG) Hs Ne + CBG CSS EOS CONE Om sexe. 

HLP (491) = CB4 * CMST1] # (Q2EQ=Q3EQ) * (Q2EQ=Q3EQ) * COS(QIEQ) = 
1C384 * CMST1 #* (DQ2EQ-VQ3EQ) * SIN(QI1EQ) = (BRAKE (5) +*BRAKE(6)) # 


PCUS(Q1EQ) + C4 * COS(QIEQ) * CP] = FSPF6 #* SIN(QLEQ) | 

HLP (492) = =(CMT*CMST1) * Q5SEQ + 2.0 * CB4 #* CMST1 * (Q2EQ-Q3EQ) # 
ISIN(QlEQ) + COS(OLTAEQ) # C2 # CBl / QSEQ - C3 * CB2 / QSEQ + C4 #) 
PCOS(QIEQ) * CPRe a 

BLP (493) = -2e0 * CB4 * CMST] # (Q2EQ-Q3EQ) * SIN(QlEQ) + C4 # | 
1COS(QlEA) * CR3 . 

RLP (494) = COS(NLTAEQ) * C2 / QS5EQ + C3 / QS5EQ + C4 # COSTQIEQ) #8 
1CP4 

BLP (405) = =(CMT*CMST1) # Q2EQ + COS(DLTAEQ) * C2 # X1 + C3 #* x2 
14164. (GOSMOME RQ) SemGeS 

KLP(Sel) = CB4 * CMST] # (Q2EQ-Q3EQ) #* (Q2EQ-Q3EQ) #* SIN(QIEQ) + 
1C6b4 * CMST] #* ()Q2EQ=DQ3EQ) #* COS(Q1EQ) = (BRAKE(5)+#BRAKE(6)) # 
2SIN(QIEQ) *¢ C4 * SIN(QIEQ) # CP] + FSPF6 #* COS(Q1EQ) 

BLP (50?) = (CMT+#CMST1) # Q4E6Q = 2.0 # CB3 * CMST1] * Q2EQ = 2.0 # 
1CB4 # CMSTL * (Q2EQ=Q3EQ) #* COS(Q1EQ) = SIN(DLTAEQ) # C2 * CBl / 
PQSEW + C4 * SIN(QIEQ) #* CP2 

RLP (593) = 2.0 * C84 * CMSTL * (Q2EQ-Q3EQ) * COS(Q1EQ) + C4 # 
ISIN(QO1EQ) # CP3 

RLP (594) = (CMT#CMST1) # Q2EQ = SIN(DLTAEQ) #* C2 / Q5SEQ + C4 # 
ISIN(QIEQ) * CP4 

BLP(595) = = SIN(DLTAEQ) #* C2 * X] + C4 #* SIN(QIEQ) #* CP5 

WRITE (6945) 

45 FORMAT (S/o 1X e2GHHHHHH MATRIX BLP I oJ) Heth» //) 

90 25 IT = LeNROWS 

25 WRITE (6523) (BLP(I9J) » J = leNROWS) 
C tb te st op tt 
C 
(e St th de oe tt 

CALL INVERS(AINV » ALP ee WNROWS) 

TP CISWICH SE Qe. 1)°GOr Tone! 

WRITE (6046) 

46 FORMAT (//91X930H##HH% MATRIX AINVi oJ) ##tHH//) 

D0 24 I = Ll»NROWS 

24 WRITE (6023) (AINV(I9J) «© J = LeNROWS) 
C tte tae te 
Cc 
C teat ge te 

N90 20 JA = leNROWS 
DO 20 Ia = leNROWS 
ES CEA Ji) =°20' 6:0 
00 20 KA = 1L»sNROWS 

20 E(TAsJA) = E(IAsJA) * AINV(IAsKA) * BLP(KAsJA) 

WRITE (6947) 

47 FORMAT(//91Xe2TH#R##% MATRIX E(IloJ) #t#HH,//) 

DO 28 I = l»NROWS 

28 WRITE (6923) (E(IeJ) » J = 1eNROWS) 
CALL ROUTH(F »sNROWS) 
21 CONTINUE 
RETURN 
END 
COMPILATION: NO DIAGNOSTICS. 


110 


| % SUBROUTINE INVERS (Aeon) 
pt DIMENSION A(14914) » 6(14014) 9» C(149i4) 
3k COMMON /C500 /ISWICH 
at MOO. sh. a doef 
wt NO dS lve 
by ty On Ci lce J) <=. RCo) 
fat CALL DETERM(CeNeDET) 
my Se Ee = DET 
watt IF (te) L4eleéol4 
Lox l2 WRITE (6¢13) 
ss 13 FORMAT(5X » 32H THE GIVEN MATRIX HAS NO INVERSE) 
lex IF ((CE@0.001) el Te Oev) ISWICH = 1 
| )3* RE TURK 
14% 14 “™ = Nel 
| 15*# DO 16 I = leN 
| 16% DO.16 J.= leN 
Vise VO 17 K = LleN 
List DO 17 L = l»N 
19% a Glico.) = BK kL) 
eis Ho = 1 6G 
2) * DO Le b& = 1seN 
eck HOU GC) olin) = CCN) 
C3 00 19 K = JeN 
24% 19 Cl®¥sod) = Cl(KeN) 
CDi IFC ONUTs (N seEQe JU eANDe N sEQe IT eORe N eNEw J eANDe N oNE I)) 
2b%* lH = -l]e0 
elt CALL DETERM(C»MsDET) 
2H% M6 Ae = (ORF Zc 3 
Ct KE TURN 
Bie END 
END OF COMPILATION: NO DIAGNOSTICS. 


LET 


)*# 
ov 
3% 
4% 
G* 
ty te 
7 4s 
Ht 
Qt 
1L(% 
1l# 
12% 
13% 
14% 
Lot 
16% 
17*# 
14+ 
Los 
2 () 
Cl 
ect 
23% 
24% 
eo% 
26% 
eT 
CR 
Cow 
A0% 


3]% 


END OF 


SUBROUTINE DETERM(AeKsDET) 
DIMENSION A(14614) 
IF (K-10) 2le2l1ls3)] 
31 WRITF (6.101) 
101 FORMAT(SX » LOHDIMENSIUON TOO LARGE) 
RF TURN 
Ce its valet) 
DOL Mi = 20K 
- XKX = ABS(A(M=1]oM=1)) 
LEMKE sGil a) Oe ON GO, HOT Sh) 
DIOL SiO RL vai) te) ak 
VY Yo (=) DAIS CANCM = te ely) 
Bie VEC YNN, Weller U0) 1GiOP Oya) 
DE =s0rs0 
RETURN 
40 713 = Me] 
DOU Ihe MUS ON 
TEM Ss Anh 2s 13) 
PNB Ge Wize yan es) ) mma 6 el edi) a 
20 Al(Jeéell) = TEMP 
Deans Leta Cm lieth) 
S05 DiOk te A Sse iM Seik 
R = A(I 9» M=l) / A(M=loM=-1) 
DO) aie ais Mire als 
Te Bie: SO SS ANCE, 9 eS cme AM mati all) weanscmm re 
OE Tso 10 
DOmw Bs = 9s 
BORIS 0 EK se cALl eral) 
DET. <S5 (DET. Hod 
RETUR? 
END 
COMPILATION: NO OUIAGNOSTICS. 
SURROUTINE ROUTH(E oN) 
OIMENSION E(14914) 9» (2414914) 
AP OLY Ss C= ig eee N 
BHPOLY = Oe 
DOV Ml aloe ie N 
11 RBPOLY = BPOLY + E(I¢1) 
BPOLY = BPOLY * (#=1.0) *## (Ne=1) 
CPOLY = 0-0 
EGss=r 1) 
14e sJiCess ie: + —) 
LS Dives EiGLG eG) 
Did is'e): <= KEEL Gi JC) 
Diego SE Cel) 
Dike) =) ECU Cee) 
CPOLY = CPOLY * O( lel) * Diese) = Dilee) = Deen) 
LF CIE SEQ NGO HON he 
IGr=s JG a) 
GOO LS 
Veo VE CHC. cE@ien (ON) GOST Om 6 


TC. =. Geel 
GO TO 14 


eZ 


SS 


Vo sePOQbnyY- = CPOLY *  Caledh #4 (N=2) 

DOES als Severe 

DOs VSe.0) =" 12 

MSaaieCee cg) = Ore0 

DPOLY: = O00 

Th (Diese ia el 

Cig Di =a: "6 
Lo RD = JD @& } 
Nee aCe NO) =F ELC RBs chi) 

Bile) Se ECR Deni) 

MO) e3) v= ECTDeKD) 

Ciera Vol ree! CHD etn) 

OrG2Nie ly cave IDs ol) 

Mee es) Se Cube) 

DiCSlhye SEK Die Ti) 

ORGS eee wee ESCA Dens!) 

b)(3e3) = E(KUDeKD) 

DROLY =" DROLY #.0()sla & OCes2) eID 3e3)2 =hO(Lel) * DC25.3) % 
VOM Sree) =P Vale) eres lL) tO OSes) 1 + D01s2) v2 Of 203) * DI352) 
A204 1a deve -O'C291). #5000392) 2 -D1s3)  * Ofes2)°* DI3e1) 

LE (KDe cE Qe ehh 2 GOs TO: :8 

KU = KD + ] 

(ait) eG lor 

YB LF CUO eEQey(N=h)) GO FO 20 

UB) ears et imc 

COTO: 24 

C20 LE CTD: eE Qe (N=2)) GO TO 22 
IAD eect —pina) tise. dion | 
Oe 1 Orecel 

AAP OW v= AWRPOWY ch Gell OD) 4 “(CN =3)) 
Tar zeae lard foe na Pee) 
POR eS i tale end 

239 DiGhie do = Vet 
EFROLY = 0-20 
EG = ie] 

Oe ies cbs at 

XSW ilps enn Lyre aa 

UG [hd ee <a 

AGN Gstls) = EO Tee DE.) 

ila) =e CLE sve) 

DnGlkers))> a-rEEE siICE) 

(ONG ie eee en Eel Se) 

D2 li ss ECIE SLE) 

tae) “~2(EWEsJE) 

Mules Siar =e (KIESIKE) 

Pee) = EtIBelE) 

(WrGSreoloyec=) ENUKE se: FE.) 

OxSige) = ECKEs JE) 

OSA She sailed Ug eSo Gay) 

304) SE (KE sLeE) 

Daas onle iy ocey esi eu TE.) 

NCS eicuyy te te (IMEX: JIE: ) 

DAGakersh)iy tat SEMCLAE, @ INE) 

ONG) = SERIE ok) 

IN fo eS 

CALL DETERM(DsN3eDET) 

EPOLY = EPOLY + DET 


LS 


794 LE Gee EiGiee iN): GO) 1hGl 2S 


Ov ae [SEs = i Eire 
ale GO TO 2&4 
RP 25 TECKE EE Qre ON@)2)%)" 1COF M0) y2:7 
KM J4e Kies Voucher area) 
ait GON TNE ee 
B5% Cf TR de tere Nee) “GOP Ta429 
Aoi IES JE + ] 
Bt GO. TO PR 
AH 29 TRACE wROle NMS (GOR MOR ssi] 
BY% Tits cies TED ea 
90% GOTO 30 
Q)% BY JERPOLY. SV BPO Y 380 (Ge esO0)) Rete AN iden) 
Yew DONS Aah nls 
9 34 On 32) wien aie 
Qa % Ves Tee lems ea Uire 0) 
Gx CALL DLETERM(E»NeDET) 
9A FPOL Ys" DET 
OTe WRITF (6052) ! 
Oye 52 FORMAT (//e1 9 34HHHHHH ROUTH CRITERIA CHECK HHH, //) 
99% WRITE (6050) APOLYsBPOLY eCPOLY »oDPOLY  sEPOLY  sFPOLY 
100% 50 FURMAT(/91Xe¢B8HAPOLY = 9E15e¢895Xy8HBPOLY = 9£150e895Xo 
LO 1* 14HCPOLY = sFl5eReSXo8HDPOILY = oF 15089 
102% CSalXeBHEPULY = sE15e4e95X98HFPOLY = gE15e49/) 
103% XT = CPOLY = “DPOLYR® ARODEY 77 1BROIRY 
104% X2 = EPOLY - FROLY #* APOLY / BPOLY 
195% X3 = DPOLY = Xe + BRPOLY 7/7 X11 
L06% RQ SFP OIRY 
19 [+ ) Go meV), GF cat re) Gad eat, CMa Aa) | 
104% WRITE (6951) APOLY 9 BRPOLY ©» X] 9 X3 9 XS 9» FROLY 
LNQ9% 51] FORMAT (Ze1XoBHAPOLY = gE 15e895XoB8HBPOI_Y = sEl5e¢8e5X» 
Llo* 18HX] = of 1L5eH eo SX oBHX3 = 9£15e8B95Xo/9 
Tolajess CX eBHXS = 9F15e¢895xXe9B8HF POLY = 9£15280/) 
l1le* RETURN 
113% END 
END OF COMP! ATION: NO OYTAGNOSTICS. 
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End Run Cards, ISW10=1 


Subsequent Runs 


Control Cards 


LPCK1 Data Cards 
VELACC oz CIRCLE Data Cards 


Brake Force Distxibution Data 
Ca:i:ds 


aes Fifth Wheel Data Cards 


Aerodynamic Data Cards 
Vehicle Data Cards 


Control Cards 


Figure 13. 


Arrangement of AVDS3 data cards. 
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Computer Program Nomenclature 


Output Code 


TIME time 
STEERING ANGLE . steering angle 
\ 
X-POSs IV OEOS position coordinates, velocities 


and accelerations of tractor 
sprung mass center of gravity 


ate 


X-VEL, Y-VEL 


Werner, 


X-ACC, Y-ACC 


PHI-1 to PHI-6 * articulated vehicle yaw angles 

OMG-1 to OMG-6 * articulated vehicle yaw angular 
velocities 

ALP-1 to ALP-6 * articulated vehicle yaw angular 
accelerations 

LOAD-1 to LOAD-14 ** total vertical load on tires 

SLPAN-1 to SLPAN-14 ** tire slip angles 

SD.FC1 to SD.FC14 ** tire slip forces 

BKAFCL to BK. NGI4: <7 tire brake forces 

PHELZ tractor-first semitrailer relative 
yaw angle 

PHE23 first semitrailer-first dolly 
relative yaw angle 

PH1I34 first dolly-second semitrailer 
relative yaw angle 

PHI45 second semitrailer-second dolly 
relative yaw angle 

PHI56 second dolly-third semitrailer 
relative yaw angle 

THEDA “Eo. THETA: 6. % angles between the sprung mass 


centerlines and velocities 


* Numbering system same as for the AEROCYNAMIC DATA CARDS, page 15. 


** Numbering system same as for the TIRE, FIFTH WHEEL DATA CARDS, 
page 20. 


IEG 


*AeANeUeW BUTABUAOD 
BUTYeW Ae{TTeAWWss-aTdtTaqz 30790Iq eB FO 


(SL1-Z91 se8ed) UOTIETNUTS ay} A0J eRep Yndjno/qnduy azsqndwopD HT eanstd 
oo°0cn09 2 /I9Nd% 06°o3009 = 999u8dS 90°009U9 = GJ9adS 
O6'uOu0g9 & p95uds GO* conus s 639d da*ogcO2tT = 299NaS 5O°ON9G» = Tu9Nds 
SINVLISHGO INT 4d& NOIS!.3dSNS FVDIHSA 
26's = yta9d £9°T 26103 
Ee'zZ = 2hay 69'T = bta9 26% = OTdD cot = 649 
Zé‘z2 = Pad out 2 £9 26°s = 919 49°T = 699 
G6'2 = a2 C9'°T sty 2002) aves = 2069 se°t Se0 109 
2E°9 2 92H9 cg*2 = S2ZHO 
2o'9 = >2H9 CEéi2 2 €ZHo 229 = €2H9 pe?2 = TZHO 
go's 2 C7H3 6t'2 2 6TH9 tote = ¥THd Gé° = 2TH9 
ip Sean = ¥THD 6Z'- = STHJ Zo°¢ = pThHid Bes = ¢€¢TH9D 
6T'2 = 2TH 6Z2‘- 2 TTRI cc° = OTHO CVet =P 6HD 
Z‘a = HD CAEN = LK) epee = 9HD ore = 6H9 
Ge ' = $9 tp'e= = HU 9uUts = 219 90°%= = BHO 
6e'L = 21989 
64527 2 9Ty9 Gg 2 STAD ces = pTyd eG°S = -€1,99 
ge‘ Ot = 23a) Good = TTRU 64°e = OTH SS = 689 ~ 
Get = 89 Cg'e¢ = £82 eoful = 919 62°L = Gg2d ar 
b£°2@F = Ad 29'9 e pc's = 209 oat Fan fo) — 
SNOISNSWIG STOTHSA 
Oo°oGa62 = 97219 : 90‘00SsT 21G2219 
Ga*cooge = p72Z19 00°OOGT = €2219 
Co' couse SaOLL19 90°oE 991 a $2219 
Oa'c9gZ = ¢1c¥9 OC ‘*I092 = Zu) 
Co'ugGga = 21569 06'I9092 = TOMO 
Oo°u9cs =-b LMS OC*I6T LE s #U. se) 


SViLednl ONY SLHOTSM 


ewees Cyt V[VYlLy, 4S sdomed HLI™ SI 19450.. STHL seea4 


Sediskhyev4 FIDIHSA 


f eiNlddl (  =Temst = IGM Sal Q sa¢rsl U Desc ams T =9¢MSI T 26¢emS]1 
2 =¢€cMS] Easier Sa tT stemst tT =sGZMS. t sé@éLysl TO =94"S1 Z 22tKsi Tt s9TMS1 0 3s6 TSI 
Bo sptMst tT s0T*S! T = 6*S] PT oo= @Myt 9 = Esl 0 = 9MsT Oe Seas T = bMS! T «= €MoI 


SandileS Wessbed 


C3FIDINIA GALVAINDla¥Y aC MUILVYIGHIS 


QOO0'-=(bT)xX OOOO'=s(ET)¥ OOOC*=s(2T)» O000*=-s(TTy> 


G*=3(Z;y O000'-s(T)y 


3Hi. NO ONINVYB IN3S043- 
dy SNI936 ONT XVue 
LAdNI SNTXVYR 


CO'y = (TT)e¥4L4wd 
OO°T # (9 )¥4l Wd 
OO'T = (FT Jedi Twd 


Vinweo0d SI17113 O31s100w wl Notuoty4 do 4N3193.4453509 


S(EM)X #08 F43HM Hisid YOLIVEL NO SNOTLONAY JWNNSLx3 


STONY ONIHSSLS WAWI XV 
(O1)1 Z2*299¢d- = (6)4 
(c)1 L'geppe = (1)4 


1)935HM NO GVO JI1VIS 


a (G)MVAO 
& (BPIAVAD 
(€)HI1d9 
(T)HD3d9 


(¢) 11042 
(1) 1080 
(G)dd1 45 
(T)d 4179 


(G)30189 
(1)30163 
(G)IVNOS 
(1 )ONNa9 


(CCOHING 10 
(ViHdWET0 

= (G6) 
(dv 


BLOVISN 
ALIDONIA YIV 


COOC*-=(0T)X UNoO'==(6)x OOO t=e( a)» GO00'=-2(2)A AQOO*=2(9)H% ONN0'=s(5)» OOOU'=-=(b)N O000'=s(c)y aNd 
(I) 13 
SONODSS 000'uG 

OO'T = (bT)asi4wd O3'T & (¢€F)e¥dL Wd OO'T = (2t)¥4L1W9 

oo't «© (0)H4i4W9 oo'tT = (6 )adiqwd oo'T # (@ )Y¥sLqWd OoO'T = (4 )¥411W9 

OO'T = (6 JuslqWd OO'TtT = (» )ysitwo O3'T 3 (€ )es4L Wd OO‘T = (2 )usL Wd 

oooo' VInWeOd STITS NI S1SNV dls WAWIx¥W OOU9'§ = 
(ay 2(CM)40 wae QO! 2(6M)9 #08 Q' 2(Ch) #@ee* T99HM M14I4 ATIOG INUISS NO SNOILONNS AVWNNSLKx3 
u' 2(24)45 aee Q? =(2M)9 one 08 3(CM)¥® #808 F35HM HLdI4 ANIOG LSels No SNOTLONAA WNYSLXS 
(aye £(TM)39 eae *0 2(1M)9 eee "Gg 

SNVI]Gve O0¢2° «= 

9'L0p2~- = Cot)l 9'cOy2~ = (CT)1 S'cgype- = (2T)1 Stcepze = (TT)1 2°e99Z- = 
Z'6bee- = (G17 Z*6tpZ= = (4)1 9'O990%= = (991 9'N99Z- = (G)1 2'2KGG- = (h)7 Z'2Gg- = (C)1 L'9SbPH = 
( 

00° = (9)MVAD Ou' 
oo' z (p)MVAD oo' = (E)MVAD 90' = (Z)MVAD oc’ 

Ou? = (9)491d9 aa! = 
oo! = (>)HOId9 GG° = (f)no1d9 qo = (2)HO1d9 qa = 
: Ou" ECS IAGES a0! = 
00! 2 (6)770u9 co! 2 CS ATOHD Oo! = (2)170u9 og! z 
cos (9) 145179 ans : 
oo 2 (6)14153 oo: = CSyla15 cg: = (2)14179 ag! cS 
co! = (9)90169 oo: 5 
00: = (6)3uIS9 oo: sCE)IOESS Cus = (2)350153 nas = 
ero = (9)9y¥eG9 ad! = 
oo! a (¢)9T8O9 og = (C)IVHM Cus = (2)9¥HU9 00: = 

ut‘ = (9)HLN319 oo' = 

oo! = (9) HIN3T9 oc: = (C)HINGATO uc = (2) LN379 Cot = 

aus = (9)V uo’ 
oc! 2 (p)Y co? = (¢)¥ 0o' = (Z)¥ oo° 
0 = UNIN 0 
PLY Jfidh 1] DLUYNAGOUSY 
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p2962'°OT £9YEL SH 
deers Ot OT6rg’Ze- 
rego OT TITT¢*Ze- 
pb665 ‘OT 99210 °C 
ctu¢,* Ct U9 EZ*ea 
0066» °OT €S¢v60'?e 
OCgRpy OT 06>S6' TH 
CTTI¢* Ot Téptete 
6rocs' Ot B9pLgt t= 
6/666°0T OOreg*t- 
“egagic' Ot cTcée'te 
geogc UT 20¢22'Tte- 
66996'6 66°RO% te 
L410TG°6 CHL BR i= 
TZ00C'6 L90FL = 
b92bb'& 6b26G'= 
cTgbe'd pOldpie 
Zp60e'L Oec9c'e- 
Ogers'’9 LOpizte 
LO0tzg's on0g0z'= 
6ocat's TLObT*= 
L4L960'>d 2860's 
LGcta'¢ e9090'- 
Ofegt's pe9EDte= 
690¢G'2 Q20Z0'e= 
Tacve't 600TH 
CTOTy'T L€v00'e 
L0zb6' pGTOU'= 
edz6q° ecudo'e 
TT9Gz' g0U0u's 
02990° gocdn'e- 
oeccc' oo0oco° 
2338/1334 2938/1334 
DSV=HA a4yVex 
1354 04'6ST = XFA 
4334 22‘ o9T = 4yoxX 
NVIQvVH 26dtT° zs FVLINL 


SONOS3S fotuT 


996b> OT eeotg'ec 


bt oe6'sé eLoed'? ee 
v99TH*6 624548 ° bE 
Hp dae'e BEL66°RE 
CL9LF°B GOcttoe€e 
Ugveg’Z 92226 
9g0EC°s 69220 °6F 
ragcne's pote of 
@L612'9 g6cOs oe 
2G62E4'S 6T res’ 6s 
c2vac's L269 '6E 
62569°% L¥C2L 4 6E 
CL9AT* > 629846 
bg649'C oGece'oe 
e6952'°E Geu9e'ée 
yz0Ng'2 99T06‘6E 
£6260 '2 9€826' oS 
eogTO'? vlov6'6F 
Tyezg't 20696 6 
patoc't | 59926 ‘6F 
spsaa't 42586'6f 
6blog? TTT66'6e 
biec9? 668666 
Cbtor® o£266'6F 
Teetc! cl£u66o'6e 
69202! 96666°6£ 
pOp2t! 396666 
eSsgu° G6666'6E 
2Se20' 66666'COE 
t2en0° OCGOU' JP 
2ttaa° VOUDL Ub 
odono! oOu00'Udr 
9458/1344 948/13544 
T4AeA Vanex 


1335 96°t2ZT 
L444 4T° Ost 


Luia wOe't 


(as) 
0 
09 


39Vs4 


e 
Co 
0 


Cd35L1s 


= avIL ane bindery 


NVIGVS CuUNGce'T = 4987 S3AWSNVY 


eo? 


L244) petty 


2 INVLSNOD NOTLVN315994 


= 41034 caqavirjq)d 


eSrde°s 
L609R'p 
OZTEL 
pElc6°C 
BrT6o’s 
69ge0'¢ 
6090z°z 
C9ZGE°?S 
ehgd0°?2 
LOved'’T 
pZ0Gn't 
v9ZLC'°t 
99063°T 
6S£56° 
62004° 
67629° 
BLobb® 
£968c° 
6S16c° 
Letec’ 
cgagt: 
Gdett: 
F6S40° 
Z29QRuU’ 
€2620° 
gtgto* 
OOgta° 
9¢¢00° 
s0TOL: 
¢Z00c° 
toodc® 
udoodo* 


4334 
SCd-A 


Cc 
" 


*G 


9431S a 
2d43ls . 
CcNOS 
144 
9455/44 
4444 


9LefS°T9 
62565'°6S 
Oozges9'“s 
ECItd*ss 
ESuGl‘°CS 
ptcoe’ts 
Z269C0°6P 
TOg9u db 
9696 SP 
CLLTO°Sd 
995f6'TD 
TT266'°6¢ 
Upp96°de 
g0¥L6°SE 
S6ST86°EE 
0296‘ TE 
4£166°62 
L40o66°L?2 
99566°S2 
L9266°C? 
vlee6*te 
plLéE66°ot 
L9666°LT 
GRE66°ST 
p6666°CT 
Q6666'°TT 
66666°6 

OOLOU'y 

aoroa’g 

JOCOO's 

gocou'2 

oocoo’ 


1334 
SOd-X 
4334 
4334 
4334 


$¢31S 


3 


i) Te3diS 


Bey tule 
ro°cst 
OC ° Cy 


O. Un? 


aoggs't 
o0uds't 
cOCGy’t 
(O90p't 
onuec’t 
oounc't 
adug2't 
cocde:'t 
O00gt'T 
oooot't 
coggo't 
coo00't 
o00¢6° 
oc006* 
agdgs: 
nd00¢e' 
udogZ* 
aoodc: 
coog9° 
o0009° 
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Figure 15. Tractor dimensions. 


Suspension points. 


For multiple wheels and tandem axles, refer Appendix A, 
Technical Report. 
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Figure 16. 


‘First semitrailer dimensions, 
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First dolly dimensions. 


Figure )-17). 
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Figure 18. Second semitrailer dimensions. 
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Second dolly dimensions. 


Figure. 29. 
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Third semitrailer dimensions. 
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